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INTRODUCTION 


The  TEAM  procedure  will  allow  the  user  to  create,  update,  list  and 
delete  documentation  and  data  on  the  TDAM  data  base .  These  changes 
can  be  entered  using  this  interactive  procedure  with  the  convenience 
of  on  line  processing,  but  the  actual  transactions  are  made  in  the 
batch  mode.  Thus  the  expense  of  making  real  time  changes  is  greatly 
reduced  through  the  use  of  batch  processing.  Since  most  changes  to  TDAM 
do  not  require  faster  than  overnight  turn  around,  you  can  save 
about  40  percent  in  processing  costs  compared  to  DBUSER  and  TDAMUSER. 
Furthermore  the  TDAM  procedure  gives  you  more  control  over 
the  creation  and  maintenance  of  TDAM  documentation. 

Assuming  that  you  are  READY  mode  under  ERSPROC,  the  TDAM  procedure  is 
entered  by  typing  TDAM.  if  you  are  not  familiar  with  the  various  routines 
available,  enter  HELP  when  the  procedure  asks  for  the  routine  code.  The 
routine  QUIT  will  return  you  to  READY  mode  in  TSO. 

The  following  JCL  information  is  necessary  for  all  of  the  TDAM 
routines : 

1)  The  batch  jobname  can  be  up  to  8  characters  of  your  choosing, 
but  should  conform  to  agency  conventions.  If  you  do  not 
know  your  10  digit  account  number,  contact  your  ADP 
security  officer. 

2)  The  user  is  strongly  encouraged  to  submit  batch  jobs  with 

the  lowest  desired  priority.  Priority  1  is  designated  as  weekend 
but  usually  will  return  by  the  next  morning  (but  at  one 
third  the  cost  of  priority  3)  . 

3)  When  generating  XEROX  output  (8  1/2  x  11  sheets),  you  should 
notify  the  remote  terminal  operator  and  complete  the  appropriate 
forms  . 

4)  Only  the  most  lengthy  job  will  require  a  job  class 
other  than  C. 

5)  If  you  are  submitting  more  than  one  batch  job,  TDAM 

will  remember  this  JCL  information  from  the  previous  batch  job.  To 
repeat  this  information,  send  a  carriage  return  when  prompted  for  an 
entry . 

This  procedure  draws  heavily  upon  software  written  by  Robert  L.  Otto 
and  other  ESCS/Data  Services  Center  (DSC)  staff.  Their  assistance 
and  encouragement  were  instrumental  in  the  prepartion  of  this  paper, 
but  its  imperfections  remain  the  responsibility  of  the  author. 
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SUMMARY  OF  TDAM  ROUTINES 


Routine  Name 

Description 

CHGDOC 

will  update  the  documentation  for  a 

TDAM  variable  (asuming  your  TDAM  sign-in 
is  valid)  . 

COPY 

will  copy  the  contents  of  one  TDAM 
variable  (assuming  your  TDAM  sign-in 
is  valid).  The  new  variable  will  not 
be  created  if  there  is  one  already  by 
that  name  and  logical  group  and  frequency 
(unless  you  tell  it  to  do  so) . 

CREATE 

will  create  a  new  TDAM  variable  with  the 
documentation  you  provide  it  (assuming  your 
TDAM  sign-in  is  valid)  . 

DELETE 

will  remove  the  specified  variable  from 

TDAM  (assuming  your  TDAM  sign-in  is 
valid).  DEL  is  an  alias. 

DIR 

will  print  a  directory  listing  of  the 
variables  for  the  designated  logical 
group  and  frequency. 

LIST 

will  list  the  data  and  documentation 
for  a  specified  TDAM  logical  group 
or  individual  variables.  TAB  is  an 
alias  . 

POSTDATA 

will  update  data  in  existing  TDAM  variables 
(assuming  your  TDAM  sign-in  is  valid). 

You  may  change  data  only  within  the 
variable's  initial  (IP)  and  last  period 
(LP).  TDATA  is  an  alias. 

SPKBATCH 

will  allow  creation  and/or  modification 
of  SPEAKEZ  commands  and  then  submit 
them  for  batch  execution.  SKPB  is  an 
alias  . 
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CHGDOC 


DESCRIPTION: 

The  CHGDOC  routine  will  submit  a  batch  job  to  change  the 
documentation  on  an  existing  TDAM  variable.  Your  sign  in 
and  password  must  be  the  correct  one  for  this  logical  group 
(even  though  the  program  will  not  check  this  until  batch 
execution) .  Contact  ESCS/DSC  at  x72623  if  you  have  questions 
about  your  TDAM  password. 


The  following  fields  may  be  changed: 


Number  of 

Field  Characters 

Variable  Name  2-20 

Logical  Group  4 

and  Frequency 

Starting  Date/  7 

Initial  Period  or  IP 

Ending  Date/  7 

Last  Period  or  LP 

Decimal  places  1-2 

Unit  of  Measure  2-16 

Owner's  Name  (set  up  by)  2-16 

Description  2-79 

Source  2-79 


Type 


Alpha-numeric 

Alpha 


Numeric 


M 


Alpha-numeric 

n 


The  frequency  of  the  data  cannot  be  altered.  The  starting 
ending  periods  are  used  only  when  creating  a  variable, 
which  will  be  initialized  with  data  at  -999999.  If  you 
wish  to  alter  the  starting  or  ending  period,  see  the  TDAMUSER 
program  in  SPEAKEZ  or  contact  ESCS/DSC. 

The  routine  will  prompt  the  user  for  each  field  in  turn. 

If  the  field  is  to  remain  unchanged  from  what  is  already 
in  TDAM,  enter  KEEP  or  K  .  If  the  field  is  to  be  exactly  like 
that  for  the  variable  you  just  updated  then  enter  DITTO  or  D. 
Sending  a  carriage  return  is  the  same  as  entering  DITTO 
(not  KEEP);  a  carriage  return  will  update  the  variable  with 
the  current  contents  of  the  documentation  field. 
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For  example,  if  you  were  updating  an  existing  variable  and 
entered  KEEP  for  all  but  the  Description  and  Source  fields  , 
all  but  those  two  would  be  unchanged. 

If  you  entered  DITTO  for  Source  then  the  source  information 
from  the  immediately  preceding  variable  would  be  inserted. 
(Even  if  you  made  no  change  to  that  preceding  variable;  it 
would  use  that  source  documentation  regardless)  . 

Suppose  that  you  did  not  want  to  use  that  source  but  wanted 
to  enter  new  information.  When  the  routine  lists  the 
new  documentation,  you  will  quickly  see  that  the  source 
information  given  is  incorrect  (i.e.  left  over  from  the 
previous  variable).  When  the  routine  asks  IS  THIS  CORRECT? 
say  NO  and  re-enter  the  documentation.  In  this  case 
send  carriage  returns  until  it  asks  for  SOURCE  and  then 
enter  your  source  documentation.  Please  see  the  attached 
example . 

Once  you  are  satisfied  with  the  documentation,  the  routine 
will  delete  the  existing  variable  (if  there  is  one)  and 
add  the  new  documentation.  Existing  data,  if  any,  will 
not  be  changed  (See  POSTDATA  for  that).  During  this 
same  batch  job,  you  may  CHGDOC,  COPY,  CREATE  or  DELETE 
any  variables  in  any  logical  group  for  which  your  TDAM 
sign  in  (as  entered  above)  is  valid. 

This  routine  submits  a  batch  DAMEASY  job.  For  details  see  the 
TDAM  System  Documentation  Version  3.00  page  61;  its  not 
necessary  to  know  anything  about  SPEAKEZ  or  DAMEASY  to 
use  this  or  any  TDAM  routine. 

(See  example  on  the  next  page.) 
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Example  of  CHGDOC 


ENTER  THE  ROUTINE  CODE  (OR  QUIT  OR  HELP' 

CHGCOC 

THIS  ROUTINE  IS  FOR  BATCH  UPDATES  OF  T DAN  DOCUMENTATION. 

IF  THE  DOCUMENTATION  FIELD  IS  NOT  TO  BE  CHANGED.  THEN 
ENTER  KEEP  OR  K .  IF  THE  ENTRY  FOR  THE  FIELD  IS  TO  EE  THE 

SAFE  AS  THAT  FOR  THE  PREUIOUS  IFDATED  '-FRIABLE.  THEN 
ENTER  DITTO  OR  D  OR  A  CARRIAGE  RETURN. 

ENTER  THE  XBNAME 

CKSCClM 

ENTER  TOUR  10  DIGIT  AC COIN T  NUMBER 
0123456789 

ENTER  THE  NUMBER  OF  COPIES  DESIRED 
1 

ENTER  THE  REMOTE  TERM I KAL  iRMTIS  FOR  ESCS  CR  RMT3  FOR  FAS) 
firry  13 

IS  THE  OUTFUT  TO  BE  ON  XEROX?  lY  OR  N) 

N 

WHAT  IS  TOUR  PRIOR  I  TV' 

a  FOR  WEEKEND.  3  FOR  AUERACE.  AND  13  FOR  ASAP) 

3 

H-AT  IS  THE  JOB  CLASS'*  (USUALLY  C) 

c 

J0BNPNE=ERS3KM  ACC0LNT=0123456789  COPIES-1 
R0UTE=RMT13  F0RM=1431  PRI0RITY=3  CLASS=C 

IS  THIS  CORRECT1  lY  OR  N) 

v 

ENTER  YOUR  T DA  1*1  SIGN-IN  MAKE  AND  PASSWORD  (ER9>C<  PASS) 

Er3uh  pass 

ENTER  YOUR  LOGICAL  GROUP  AND  FREQUENCY 

ENTER  THE  CAR I ABLE  NAME 
* 

ENTER  THE  DECIMAL  PLACES 
3 

ENTER  THE  CHIT  OF  fEASURE 

b  060  HCXTHPE^ 

ENTER  THE  OWNER’S  FAME 

K 

ENTER  THE  EESCRIFTIuN 

^PLEVRPEH  PUf^HTED"  FIUiTPRI_IH.  CFQP####l=!=P:-nRR  CROP  VEHR.  UJLHLLV  SOLt'J  HRr>- JLM 

ENTER  THE  DATA  SOURCE 

llWS.OSDP  STHT.TPEt.  5~6  2  t  HE£ .  RNNUBL  REPT .  ECEDUUE  R  3 )  FHS  2  RND  O .  HRKT  VP###### 
nri — hirr.'  rpkt  vp 

THE  NEW  DOCUMENT AT  ION  IS  AS  FOLLOWS: 

LOGICAL  'GROUP  AND  FREQUENCY  IS  ...  HLAA 

CAR I ABLE  NAME  IS  ...  AB 

DECIMAL  PLACES  ARE  ...  3 

UNIT  OF  FEASURE  IS  . . .  1.000  HECTARES 

OWNER’ S  l-AME  IS  ...  KEEP 

DESCRIPTION  IS  ...  BARLEY. AREA  PLANTED. AUSTRALIA. APR-MAR  CROP  YEAR. USUALLY  SOW 
N  MRY-JUN 

DATA  SOUPCE  IS  ...  1JABS.CR0P  STAT.TABL  5-6  2) ABB. ANNUAL  PEPT,  SCEDULE  A  3)FAS 
S  Ffffi  D.  DEC-NOU  MPKT  YR 

SOURCE  (82  CHARS)  IS  TOO  LONG. 

IS  THIS  CORRECT  (Y  OR  N) 

N 

ENTER  'YOUR  LOGICAL  GROUP  AND  FFEQUENCY 
o 

ENTER  THE  CAR I ABLE  NAME 

□CTTn 

ENTER  THE  DECIMAL  PLACES 
ENTER  THE  UNIT  OF  FEASUPE 
ENTER  THE  OWfEP’S  1AME 
ENTER  THE  DESCRIPTION 
ENTER  THE  DATA  SOUPCE 

Dnes.cpap  stbt.  thel  5.6  2)Bee>BHNUfii_  pept.scheeo_e:  p  3)pps  s+’O.oec-nO1^  ftpkt  vp 

THE  MEW  DOCUMENTATION  IS  AS  FOLLOWS: 

LOGICAL  GROUP  AND  FPEGUOCY  IS  ...  HLAA 

UFA  I  ABLE  NAME  IS  ...  AB 

DECIMAL  PLACES  AFE  ...  3 

UNIT  OF  fEASURE  IS  ...  1.000  HECTARES 

OUTER’S  FAfC  IS  ...  KEEP 

DESCRIPTION  IS  ...  BFPLEY.FtPEA  PLANTED. AUSTRALIA. APP-HAR  CROP  YEFP. USUALLY  SO) 
N  FlAY-JJt) 

DATA  SOURCE  IS  ...  UABS.CFOP  ST  AT .  TAEL  5.6  2)AB£»hMNUAL  PEPT.  SCHEDULE  A  3JFFS 
S+D.BEC-NCU  MPKT  VP 

IS  THIS  COFRECT"’  (Y  OR  N) 

v 

CUTER  FOUTINE  CODE  < CHGDCC . COPY . CREATE . DEL )  OP  STi CP 
IF  THEFE  AFE  NO  F10FE  UFAIABLES  TO  BE  CHANGED. 

fTO3 

JOB  UuE’0c867'J  SUEMITTEB  f FEE  hLL  FILES 


COPY 


DESCRIPTION: 

The  COPY  Routine  will  copy  the  documentation  and  data 
of  one  TDAM  variable  from  one  logical  group  and  variable 
name  to  another.  Your  TDAM  sign-in  and  password  must 
be  the  correct  one  for  the  new  logical  group  (even  though 
the  program  will  not  check  this  until  batch  execution) . 
Contact  ESCS/DSC  at  x72623  if  you  have  questions  about 
your  TDAM  password. 

The  routine  will  ask  if  the  new  variable  already  exists, 
yes  ,  then  it  will  be  deleted  and  replaced  with  the 
data  and  documentation  of  the  old.  However  before  then, 
you  may  make  whatever  changes  to  the  documentation  (only) 
just  as  you  would  for  CHGDOC.  If  you  wish,  you  may 
change  the  new  variable's  data  later  using  POSTDATA.  You 
may  not  change  the  initial  or  last  period  of  the  variable 
(To  do  this  ,  please  see  the  TDAMUSER  program  in  SPEAKEZ 
or  contact  ESCS/DSC.) 

(See  example  on  the  next  page.) 
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If 


Example  of  COPY 


ENTEPs  THE  ROUTINE  CODE  COR  QUIT  OR  HELP) 

Sis  routine  is  for  botch  copying  of  tdam  uprirbles. 

F  THE  DOCUMENTATION  FIELD  IS  NOT  TO  BE  LHhNuEDj  THEN 
ENTEP  KEEP  OR  K.  IF  THE  ENTRY  FOR  THE  FIELD  lo  TO  BE  THE 
FirC  AS  THAT  FOR  THE  PREUIOUS  UPDATED  VARIABLE*  THEN 
QHTER  DITTO  OR  D  OR  A  CARRIAGE  RETURN. 

BITER  THE  JOENAME 

BRSoliJH 

ENTER  YOUR  10  DIGIT  ACCOUNT  NUMBER 
0123456789 

ENTER  THE  NUMBER  OF  COPIES  DESIRED 

ENTER  THE  REMOTE  TERMINAL  (RMT13  FOR  ESC3  OR  RMT3  FOR  FAS) 
IS*1" THE  OUTPUT  TO  EE  ON  XEROX?  CY  OR  N) 

AMD  13  FOR  FSflP)  • 

3 

WHAT  IS  THE  JOE  CLASS?  (USUALLY  C) 

C  J0BNAME=ERS3WH  ACCOUNT=0123456789  COPIES=l 
R0UTE=RMT13  F0RM=1431  PRIORITY-3  CLASb-U 

IS  THIS  CORRECT?  CY  OR  N) 

otter  your  team  sign-in  name  AND  PASSWORD  CERRXX  PASS) 

er3lh  pass 

ENTER  YOUR  OLD  LOGICAL  GROUP  AND  FREQUENCY 

-  OITER  the  old  variable  name 

OTER  THE  NEW  LOGICAL  'GROUP  AND  FREQUENCY 
ENTER  THE  1€W  VARIABLE  NAME 

lTOC 

DOES  TRE  NEW  VARIABLE  EXIST?  CY  OR  N) 

ENTER  THE  DECIMAL  PLACES 
0 

ENTER  THE  UNIT  OF  MEASURE 

«E P 

ENTER  THE  OWNER’S  NAME 
enter  the  description 
enter,  the  iata  source 

exhtt=ue  df  the  TCiRm  ertch  ccpv  rdut x  ne 


ALAA 

JPNA 


THE  NEW  DOCUMENTATION  IS  AS  FOLLOWS^ 
fa  n  LOGICAL  'GROUP'  AND  FREQUENCY  I'o  . 

OLD  VARIABLE  NAME  IS  ...  YEAR 
new  LOGICAL  'GROUP  AND  FREQUEIC  <  Io  . 
rC-J  VARIABLE  NAME  IS  .  . .  YEAR 
DECIMAL  PLACES  ARE  ...  0 
UNIT  OF  MEASURE  IS  ...  KEEP 
O'JNER’ S  NAME  IS  ...  KEEP 

11  :::  ei*ri£  or  t*  ™  batch  COPY  ROUTINE 

IS  THIS  CORRECT?  CY  OR  N) 

ENTER  ROUTINE  CODE  C CHGDOC * COPY» CREATE »DEL)  OR  STOP 

F  THERE  ARE  NO  MORE  VARIABLES  TU  sE  sHHNGEL. 

JO^ERSSWH ( JOB02S32)  SUBMITTED  *=*  FR:EE  ALL  FILEo 
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CREATE 


DESCRIPTION: 


The  CREATE  routine  will  create  a  new  TEAM  variable  with 
the  documentation  you  provide.  Your  TDAM  sign-in  and  pasword 
must  be  correct  for  the  logical  group  (even  though  the 
program  will  not  check  this  until  batch  execution) .  Contact 
ESCS/DSC  at  x72623  if  you  have  questions  about  your  TDAM 
password.  See  the  CHGDOC  command  for  a  discussion  of  the 
TDAM  documentation  fields  and  the  use  of  DITTO.  Since  the 
variable  is  new,  there  is  nothing  to  KEEP  so  you  should 
not  use  this  option. 

(See  example  on  the  next  page.) 
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Example  of  CREATE 

ENTER  THE  ROUTINE  CODE  (OR  QUIT  OR  HELP) 

CPEFTTE 

THIS  ROUTINE  IS  FOR  CREATING  NEW  TDAM  UAPIABLES. 

IF  THE  DOCUMENTATION  IS  TO  EE  THE  SAME  AS  THAT  FOP  THE 
FPEVIOUS  UPDATED  "APIAELE.  ENTER  DITTO  OR  D  OR  A  CARRIAGE 
FETTJRN.  (YOU  SHOULD  NOT  USE  THE  KEEP  OR  K  OPTION.) 

ENTER  THE  JOBNAME 
ErsAjhr 

ENTER  YOUR  10  DIGIT  ACCOUNT  NUMBER 
0123456789 

ENTER  THE  NUMBER  OF  COPIES  DESIRED 
1 

ENTER  THE  REMOTE  TERMINAL  (RMT13  FOR  ESCS  OR  RMT3  FOR  FAS) 

PT1T13 

IS  THE  OUTPUT  TO  BE  ON  XEROX?  (Y  OR  N# 

N 

WHAT  IS  YOUR  PRIORITY? 

a  FOR  WEEKEND »  3  FOR  AUER AGE.  AND  13  FOR  ASAP) 

3 

WHAT  IS  THE  JOB  CLASS?  (USUALLY  C) 

c 

J0BNAME=EPS3MHA  ACCOUNT=01 23456789  COPIES=l 
ROUTE=MT13  F0RM=1431  PRIORITY-3  CLASS=C 

IS  THIS  CORRECT?  (Y  OR  N) 

N 

PLEASE  TRY  AGAIN 
ENTER  THE  JOBNFttE 

ENTER  YOUR  10  DIGIT  ACCOUNT  NUMBER 
ENTER  THE  NUMBER  OF  COPIES  DESIRED 

ENTER  THE  REMOTE  TERMINAL  (RMT13  FOR  ESCS  OR  RMT3  FOR  FAS) 

WTT13 

IS  THE  OUTPUT  TO  BE  ON  XEROX?  (Y  OR  N) 

UHAT  IS  YOUR  PRIORITY^ 

a  FOR  WEEKEND.  3  FOR  AUER AGE.  AND  13  FOR  ASAP) 

UHAT  IS  THE  JOB  CLASS?  (USUALLY  C) 

J0BNAME=ERS3UHA  ACCOUNT=0123456789  COPIES=l 
ROUTE=RMT 1 3  F0RM=1431  FRIGRITY=3  CLASS=C 

IS  THIS  CORRECT?  (Y  OR  N) 

v 

ENTER  YOUR  TDAM  SIGN-IN  NAME  AND  PASSWORD  (ER9XX  PASS) 

Er3u-i  pass 

ENTER  YOUR  LOGICAL  GROUP  AND  FREQUENCY 

EECH 

ENTER  THE  CAR I ABLE  NAME 

TE3T-oprm 

ENTER  THE  INITIAL  PERIOD  (E.G.  1960001) 

1955001 

ENTER  THE  LAST  PERIOD  (E.G.  1979011) 

1979001 

ENTER  THE  DECIMAL  PLACES 
2 

ENTER  THE  UNIT  OF  CEASLRE 

METRIC  TUNS 

ENTER  THE  OLDER ’  S  NAME 

HOUSER  rOCD'-'DCPB 

ENTER  THE  DESCRIPTION 

"HIS  IS  R  '-RFflIELE'THIS  IS  R  '.HRIReuE  CP  EH  TED  EV  TDHn  EFTTCH  PROCEDURE 

ENTER  THE  DATA  SOURCE 

HS  H  TEST  CF  THE  CPEHTE  ROUTINE 

THE  NEW  DOCUMENTATION  IS  AS  FOLLOWS: 

LOGICAL  GROUP  AND  FREQUENCY  IS  ...  EEC A 
(JAR  I  ABLE  NAME  IS  ...  TEST-DATA 
DECIMAL  PLACES  APE  ...  2 
UNIT  OF  MEASURE  IS  . . .  METRIC  TONS 
OWHER’S  NAME  IS  ...  HOUSER  F  BCD'"  DC  FA 

DESCRIPTION  IS  ...  THIS  IS  A  'JAR I ABLE  CREATED  BY  TDAM  BATCH  PROCEDURE 
IflTA  SOURCE  IS  ...  AS  A  TEST  OF  THE  CREATE  ROUTINE 

THIS  IS  A  NEW  "ARIAELE  WITH  DATA  INITIALIZED  AT  -999999. 

INITIAL  FERIOD  IS  ...  1955001 
LAST  PERIOD  IS  . . .  1973001 

IS  THIS  CORRECT?  (Y  OR  N) 

v 

ENTER  ROUTINE  CODE  (CHGDOC. COPY, CREATE. DEL)  OR  ’STOP’ 

T  THERE  APE  NO  MORE  UPftlABLES  TO  BE  CHANGED. 

STOP 

JOB  ERS3WHA( JOE02399)  SUBMITTED  ♦«  FREE  PLL  FILES  ** 


DELETE 


DESCRIPTION: 

The  DELETE  routine  will  remove  the  requested  TDAM  variable 
from  the  indicated  logical  group  and  frequency.  Your 
TDAM  sign-in  and  password  must  be  the  correct  one  for 
the  logical  groups  of  the  variables  you  are  deleting 
(even  though  the  program  will  not  check  this  until  batch 
execution).  Contact  ESCS/DSC  at  x72623  if  you  have  questions 
about  your  TDAM  password . 

Suggestion:  You  should  do  your  DELETES  along  with  your 

CHGDOC ,  COPY,  and  CREATE  commands.  It  is  more  efficient 
since  they  will  be  put  into  one  batch  job  instead  of 
separate  batch  jobs. 

(See  example  on  the  next  page.) 
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Example  of  DELETE 


WELCOME  TO  TDAM  IN  THE  BATCH  MODE. 

ENTER  THE  ROUTINE  CODE  (OR  QUIT  OR  HELP) 

OE3-ETE 

THIS  ROUTINE  IS  FOR  BATCH  DELETION  OF  TDAM  UARIABLES. 

ENTER  THE  JOENAME 
ersCuhd 

ENTER  YOUR  10  DIGIT  ACCOUNT  NUMBER 
0123456789 

ENTER  THE  (UMBER  OF  COPIES  DESIRED 
1 

ENTER  THE  REMOTE  TERMINAL  (RMT13  FOR  ESCS  OR  RMT3  FOR  FAS) 
RTTT 13 

IS  THE  OUTPUT  TO  EE  ON  MERCK?  (Y  OR  N) 

N 

WHAT  IS  YOUR  PRIORITY? 

a  FOR  WEEKEND >  3  FOR  AUER AGE*  AND  13  FOR  ASAP) 

3 

WHAT  IS  THE  JOB  CLASS?  (USUALLY  C) 

JQBNAME=ERS3WHD  ACCOUNT*  0123456789  C0PIES=1 
R0UTE=RMT13  FORM* 1431  FRI0RITY=3  CLASS=C 


IS  THIS  CORRECT?  (Y  OR  N) 

v 

ENTER  YOUR  TDAM  SIGN-IN  NAME  AND  PASSWORD  CER9XX  PASS) 
erSujh  ?a3S 

ENTER  YOUR  LOGICAL  GROUP  AND  FREQUENCY 

SETUP 

ENTER  THE  UAR I ABLE  NAME 

^TST-OFTTR 

THE  UAR I ABLE  TO  BE  DELETED  IS:  TEST-DATA 
THE  LOGICAL  GROUP  and  FREQUENCY  IS:  EECA 

IS  THIS  CORRECT?  (Y  OR  N) 
v 

ENTER  ROUTINE  CODE  (CHGDOC, COPY, CREATE > DEL)  OR  STOP 
IF  THERE  ARE  NO  MORE  UARIABLES  TO  BE  CHANGED. 

DEI. 

ENTER  VOUR  LOGICAL  GROUP  AND  FREQUENCY 

JFNH 

ENTER  THE  UAR I ABLE  NAME 

■ESTEC 

THE  UAR I ABLE  TO  BE  DELETED  IS:  TESTBG 
THE  LOGICAL  GROUP  AND  FREQUENCY  IS:  JPNA 

IS  THIS  CORRECT?  CY  OR  N) 
v 

ENTER:  ROUTINE  CODE  ( CHGDGC > COPY j CREATE > DEL )  OR  STCP 
IF  THERE  ARE  NO  MORE  UARIABLES  TO  BE  CHANGED. 

STOP 

JOB  ERS3WHD ( J0B03339 )  SUBMITTED  FREE  RLL  FILES  ** 
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DIR 


DESCRIPTION: 

The  DIR  routine  will  submit  a  batch  job  to  print  a  TDAM 
directory  listing  of  the  variables  in  the  designated 
logical  group  and  frequency.  You  should  be  careful  that 
any  batch  job  changes  to  the  requested  variables  should 
be  completed  before  requesting  a  directorv  of  the  documentation. 
The  DIR  routine  emulates  the  procedures  TDAM3DIR  and  TDAM3D0C . 
Further  details  may  be  found  in  the  TDAM  System  Documentation 
Version  3.00,  p.  18. 

(See  example  on  the  next  page.) 
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Example  of  DIR 


ENTER  THE  ROUTINE  CODE  (OR  QUIT  OR  HELP) 

DIR 

THIS  ROUTINE  PROVIDES  A  DIRECTORY  OF  TDAM  DATA  GROUPS. 

ENTER  THE  JOENAME 
ersSUjh 

ENTER  YOUR  10  DIGIT  RCCOUNT  NUMBER 
0123456789 

ENTER  THE  NUMBER  OF  COPIES  DESIRED 
1 

ENTER  THE  REMOTE  TERMINAL  (RMT13  FOR  ESC3  OR  RMT3  FOR  FAS) 

RJTT13 

IS  THE  OUTPUT  TO  BE  ON  XEROX?  (Y  OR  N) 

v 

YOU  MUST  GIUE  THE  OPERATOR  A  REQUEST  FORM  FOR  XEROX 
PROCESSING.  PLEASE  ALLOW  3  DAYS. 

WHAT  IS  YOUR  PRIORITY? 

a  FOR  WEEKEND*  3  FOR  AUER AGE*  AND  13  FOR  ASAP) 

1 

WHAT  IS  THE  JOB  CLASS?  (USUALLY  C) 

D 

J0BNAME=£RS3WH  ACCOUNT^ 23456789  C0PIES=1 
R0UTE=RMT13  FORM=XERO  FRI0RITY=1  CLASS=D 

IS  THIS  CORRECT?  (Y  OR  N) 

v 

ENTER  THE  LOGICAL  GROUP  FOR  WHICH  YOU  WISH  A  DIRECTORY 

FLfl 

IS  ALA  CORRECT?  (Y  OR  N) 

v 

DO  YOU  WANT  A  COMPLETE  OR  BRIEF  LISTING  OF  THE  DOCUMENTATION?  (C  OR  B) 

c 

JOB  ERS3WH ( JOB0335O)  SUBMITTED  FREE  ALL  FILES 

ENTER  THE  ROUTINE  CODE  (OR  QUIT  OR  HELP) 

DIR 

THIS  ROUTINE  PPOUIDES  A  DIRECTORY  OF  TDAM  DATA  GROUPS. 

ENTER  THE  JOENAME 

ENTER  YOUR  10  DIGIT  ACCOUNT  NUMBER 
ENTER  THE  NUMBER  OF  COPIES  DESIRED 

ENTER  THE  REMOTE  TERMINAL  (RMT13  FOR  ESCS  OR  RMT3  FOR  FAS) 

IS  THE  OUTPUT  TO  BE  ON  XEROX?  (Y  OR  N) 


YOU  MUST  GIUE  THE  OPERATOR  A  REQUEST  FORM  FOR  XEROX 
PROCESSING.  PLEASE  ALLOW  3  DAYS. 

WHAT  IS  YOUR  PRIORITY? 

a  FOR  WEEKEND*  3  FOR  AUER AGE*  AND  13  FOR  ASAP) 

WHAT  IS  THE  JOB  CLASS?  (USUALLY  C) 

D 

J0BNAME=ERS3WH  ACCOLMT=0  1  2345  6  789  C0PIES=1 
R0UTE=RMT13  FORM=XERO  PRIORITY*!  CLASSED 

IS  THIS  CORRECT?  (Y  OR  N) 
v 

ENTER  THE  LOGICAL  GROUP  FOR  WHICH  YOU  WISH  A  DIRECTORY 

IS  FLAP  CORRECT?  (Y  OR  N) 

v 

DO  YOU  WANT  A  COMPLETE  OR  BRIEF  LISTING  OF  THE  DOCUMENTATION?  (C  OR  B) 


JOB  ERS3WH (JQB033S3)  SUBMITTED  :«*  FP:EE  ALL  FILES  «* 
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LIST 


DESCRIPTION: 

The  LIST  routine  will  submit  a  batch  job  to  list  the  documentation 
and  data  for  a  designated  logical  group  or  specified  variables 
from  one  or  more  logical  groups.  It  is  much  less  expensive 
to  specify  individual  varables  than  to  request  an  entire 
logical  group.  Also  in  the  former  case,  you  may  specify 
your  choice  of  print  options  (other  than  the  default  options 
of  MISSING  and  ZEROES).  When  you  have  entered  all  the  variables 
you  wish  to  list  ,  enter  STOP  or  NOMO  as  the  next  logical 
group . 

Suggestion:  It  is  cheaper  to  group  your  list  requests  instead 

of  doing  them  between  POSTDATA  or  CRGDOC  routines.  You  should 

be  careful  that  the  batch  run  containing  any  changes  to 

the  data  or  documentation  of  these  variables  should  be  succesfully 

completed  before  listing  them.  The  LIST  routine  executes  TPTABULR. 

(Please  see  the  TDAM  System  Documentation  Version  3.00, 

p.  53  for  details  on  these  programs). 

EXAMPLE: 

ENTER  TPC  ROUTINE  CODE  (OR  QUIT  OR  HELP) 

LIST 

THIS  ROUTINE  PROVIDES  A  TABULAR  LISTING  OF  TDAM  DATA 
INDIU I DUALLY  OR  BY  LOGICAL  GROUP. 

ENTER  THE  JOBNAME 

ERSoUHU 

ENTER  YOUR  10  DIGIT  ACCOUNT  NUMBER 
0123456789 

ENTER  THE  NUMBER  OF  COPIES  DESIRED 

ENTER'  THE  REMOTE  TERMINAL  (RMT13  FOR  ESCS  'DR  RMT3  FOR  FAS) 
wrrl3 

IS  THE  QUTFUT  TO  BE  ON  XEROX?  (Y  OR  N) 

YOU  MUST  GIVE  THE  OPERATOR  A  REQUEST  FORM  FOR  XEROX 
PROCESSING.  PLEASE  ALLOW  3  DAYS. 

WHAT  IS  YOUR  PRIORITY?  „  __ 

Q  FOR  WEEKEND >  3  FOR  AVERAGE?  AND  13  FOR  HSAP) 

WHAT  IS  THE  JOB  CLASS?  (USUALLY  C) 

C  J0BNAME=ERS3WHL  ACCOUNT  =  0123456789  COPIES=l 
R0UTE=RMT13  FORM=XERO  PRIGRITY=1  CLASS-C 

IS  THIS  CORRECT?  (Y  OR  N) 

DO  YOU  WISH  TO  LIST  BY  GROUP'  OR  VARIABLE?  (G  OR  U) 

ENTER  YOUR  LOGICAL  GROUP  AND  FREQUENCY 
IS  ALAR  CORRECT?  (Y  OR  N) 

JOB  ERS3WHL ( J0B03393 )  SUBMITTED  **  FREE  ALL  rXLES  ** 
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Example  of  LIST 


ENTER  THE  ROUTINE  CODE  (OR  QUIT  OR  HELP! 

LIST 

THIS  POUTirC  PPOUIDES  A  TABULAR  LISTING  OF  TDAM  DATA 
JNDIUIDUALLY  OR  BY  LOGICAL  GROUP. 

ENTER  THE  JOBNAME 

ERS-HiJHL 

ENTER  YOUR  10  DIGIT  ACCOUNT  NUMBER 
0  1  234  5  6  7  8  9 

ENTER  THE  NUMBER  OP  COPIES  DESIRED 
1 

ENTER  THE  REMOTE  TERMINAL  ( PMT 1 3  FOR  «SCS  OR  RMT3  FOR  FAS) 
smtIS 

IS  THE  OUTPUT  TO  BE  ON  XEROX?  (Y  OR  N) 

N 

WHAT  IS  YOUR  PRIORITY? 

G  FOR  WEEKEND.  3  FOR  RUERAGE.  RND  13  FOR  RSRP) 

■3 

WHAT  IS  THE  JOB  CLASS?  ( USUALLY  C) 

c 

JOBNAME=ERS3WHL  RCC0UNT=01 23456789  COPIES=l 

ROUTE=RMT  1 3  F0RM=1431  FRI0RITY=3  CLASS=C 

IS  THIS  CORRECT?  (Y  OR  N) 

v 

DO  YOU  WISH  TO  LIST  BY  GROUP  OR  (JAR  I  ABLE?  (G  OR  U) 
y 

DO  YOU  WANT  THE  USUAL  FRINT  OPTIONS (MISSING. ZEROES)?  (Y  OR  N) 

v 

ENTER  STOP  OR  NOMO  WHEN  YOU  RPE  FINISHED. 

ENTER  LOGICAL  'GROUP  RND  FREQUENCY  (OR  STOP). 

RLHR 

ENTER  THE  LARI ABLE  NAME  IN  ALAR 
He 

THE  UARI ABLE  NAME  IS:  AB 

THE  LOGICAL  GROUP  FDD  FREQUENCY  IS:  ALAR 

IS  THIS  CORRECT?  (Y  OR  N) 

¥ 

ENTER  LOGICAL  'GROUP  RND  FREQUENCY  (OR  STOP). 

ENTER  THE  UARI ABLE  NAME  IN  JPNA 
vem 

THE  UARI ABLE  NAME  IS:  YEAR 

T4E  LOGICAL  GROUP  RND  FREQUENCY  IS:  JPNA 

IS  THIS  CORRECT?  (Y  OR  N) 

¥ 

ENTER  LOGICAL  'GROUP  RND  FREQUENCY  (OR  STOP). 

ENTER  THE  UARI ABLE  NAME  IN  JPNA 

TEST-OHTH 

THE  UARI ABLE  NAME  IS:  TEST-DATA 

THE  LOGICAL  'GROUP  FMD  FREQUENCY  IS:  JPNA 

IS  THIS  CORRECT?  (Y  OR  N) 

N 

PLEASE  TRY  AGAIN 

ENTER  LOGICAL  GROUP  AND  FREQUENCY  (OR  STOP). 

EECH 

ENTER  THE  CAR I ABLE  NAME  IN  EECA 


THE  UARI ABLE  NAME  IS:  TEST-DATA 

THE  LOGICAL  'GROUP  FND  FREQUENCY  IS:  EECA 

IS  THIS  CORRECT?  (Y  OR  N) 


ENTER  LOGICAL  'GROUP  RND  FREQUENCY  (OR  STOP). 

STOP 

JOB  ER33WHL ( JOE02934)  SUBMITTED  «*  FREE  FLL  FILES  ** 
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POSTDATA 


DESCRIPTION: 


The  POSTDATA  routine  is  used  to  post  or  change  data  for 
any  existing  TDAM  variable.  Your  TDAM  sign-in  and  password 
must  be  the  correct  one  for  the  logical  groups  for  the 
variables  you  are  updating  (even  though  the  program  will 
not  check  this  until  batch  execution)  .  Contact  ESCS/DSC 
at  x72623  if  you  have  questions  about  your  TDAM  password. 

Enter  the  7  digit  initial  period  for  the  first  data  value 
to  be  changed.  You  may  enter  up  to  five  data  values  for 
the  five  successive  periods  after  this  initial  period. 

For  annual  data  an  initial  period  of  1969001  will  update 
1969001,  1970001,  1971001,  etc.  For  monthly  data 
beginning  with  1969011,  the  values  will  change  1969011, 
1969012,  1970001,  1970002,  and  1970003.  In  lieu  of  a  number, 
you  may  enter  one  of  the  following  codes  : 


Code  you 
Enter 

Meaning 

Value  Entered 
into  TDAM 

REP 

Repeat  or  re-enter 
the  previous  value 

-none- 

NOM 

No  more  values  for 
this  variable 

-none-  go  to 
next  variable 

MIS 

Missing  data 

-999999 

N/A 

Data  is  not  available 

-999996 

NEG 

Data  is  negligible 
but  not  zero 

-999997 

If  you  are  entering  negative  values,  each  value  must  be 
exactly  nine  characters  long  with  the  minus  sign  as  the 
first  character,  followed  by  leading  blanks  or  zeroes 
until  the  number  is  complete.  You  may  enter  REP  as  often 
as  you  need  to  get  the  value  entered  correctly. 

The  routine  will  ask  you  for  the  number  of  decimal  places 
in  your  TDAM  variable.  This  is  done  to  help  you  to  be 
clear  on  the  decimal  places  in  the  number  you  are  entering. 
The  program  does  not  convert  decimal  places;  putting  a 
decimal  in  the  value  will  cause  an  error.  For  example, 
suppose  your  variable  is  the  price  of  truffles  in  dollars 
with  two  decimal  places  (TDDECL0C=2) .  If  the  new  value 


16 


is  $4.15,  you  enter  ’415'  as  the  value  and  the  routine 
will  tell  you  that  TDAM  will  know  this  to  be  '4.15’  ,  not 
415.00.  However  you  could  have  just  as  correctly  said 
there  were  0  decimal  places  (even  though  the  TDAM  variable 
has  2  decimal  locations)  and  entered  '415'  without  any 
decimals.  But  entering  '415.0'  would  be  invalid,  and 
'41550'  would  be  incorrect  (since  that  would  mean  $415.50 
to  TDAM).  Please  see  the  attached  example. 

After  entering  5  values  or  NOM  (or  NOMORE),  the  routine  will 
show  you  the  updates  you  have  generated  ,  including  the 
leading  zeroes  it  adds  to  make  each  positive  value  nine 
characters  long.  If  you  don't  like  its  looks,  answer 
NO  when  the  routine  asks  IS  THIS  CORRECT? 

Suggestion:  It  is  cheaper  to  do  all  your  data  posting 

at  one  time,  instead  of  mixing  documentation  ( CHGDOC  or 
LIST)  and  data  updates.  The  POSTDATA  routine  executes 
the  DBCARDX  program  which  is  quick  and  inexpensive  but 
entirely  separate  from  SPEAKEZ.  Switching  from  posting 
data  to  listing  it  or  changing  its  docummentation  will 
trigger  seperate  batch  jobs  for  each  switch.  DBCARDX, 
the  program  used  by  this  routine,  is  thoroughly  described 
in  the  TDAM  System  Documentation  Version  3.00  beginning 
on  page  26. 

(See  example  on  the  next  page.) 
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Example  of  POSTDATA 


ENTER  THE  ROUTINE  CODE  (OR  QUIT  OR  HELP) 

THIS^GUTINE  IS  FOR  ERTCH  UPDATES  OF  TDAM  DATA 

ENTER  THE  JOENAME 

ersSuhp 

ENTER:  YOUR  10  DIGIT  ACCOUNT  NUMBER 
0123456789 

ENTER  THE  NUMBER  OF  COPIES  DESIRED 

ENTER  THE  REMOTE  TERMIKAL  (RMT13  FOR  ESCS  OR  RMT3  FOR  FAS) 

FflTlS 

IS  THE  OUTPUT  TO  EE  ON  XEROX?  (Y  UR  N) 

N 

WHAT  IS  YOUR  PRIORITY? 

tt  FOR  WEEKEND »  3  FOR  AUERRGEj  AND  13  FOR  HbHP) 

3 

WHAT  IS  THE  JOB  CLASS?  ( USUALLY  U 

C  J0BNAME=ERS3WHP  ACCOUNT =°1 23456789  C9II^E:?=1 

ROUTE=RMT 1 3  F0RM=1431  FRI0RITY=3  CLASS=C 

IS  THIS  CORRECT?  (Y  OR  N) 

v 

ENTER  YOUR  TEAM  SI  O')- IN  NAME  AND  PASSWORD  ‘ER9XX  PASS) 
er3uh  Pass 


ENTER  REPEAT  OR  PEP  TO  RE-ENTER  A  UALUE 

NO MORE  OR  NON  TO  STOP  EEFORE  5  UhLUEo 
MISSING  OR  MIS  FOR  MISSING  DATA  (-999999) 

N/A  FOR  MOT  AUAILABLE  (-999996) 
cnp  f-jp-pi  IGIELE  (—'-‘99997) 

ENTER  STOP  OR  HOMO  WHO)  YOU  HAKE  UPDATED  ALL  rOUR  UARIABLEo. 

ENTER  YOUR  LOGICAL  GROUP  AND  FREQUENCY  COR  STOP) 

ENTER  THE  UARI ABLE  NAME  IN  ALAA 

ENTER  THE  INITIAL  PERIOD  (E.G.  1955001) 

1976001 

ENTER  THE  IGCIMAL  FLHUEc 

Y0OU  MAY  ENTER  UP. TO  5  DATA  UALUES  BEGINNING  WITH  THAT  FOR  1976001. 


ENTER  UALUE  FOR  DATA  FIELD  1 

76 

THIS  UALUE  WILL  EE  .6. 

ENTER  UALUE  FOR  DATA  FIELD  2. 

77 

THIS  UPLUE  WILL  BE  7,-. 

ENTER  UALUE  FOR  DATA  FIELD  3 


79 

THIS  UPLUE  WILL  EE  .  o. 

'ENTER  UALUE  FOR  DATA  FIELD  4 
79 

THIS  UPLUE  WILL  BE  ,9. 

ENTER  UALUE  FOR  DATA  FIELD  5 


™UR  UTOATEWCPLYEAR:::IN  ALAA  BEGINNING.  IN 
WILL  HAUE  THE  UALUES  O0O0U0076  000OW0W77 
IS  THIS  CORRECT?  ( Y  OR  N) 


1 976O01 

000000073  000000079 


000000030 


V 
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Example  of  POSTDATA  (continued) 


ENTER  TOUR  LOGICAL  GROUP  AND  FREQUENCY  (OR  STOP) 

EECFI 

ENTER  THE  TOR  I  ABLE  NAME  IN  EECA 

TRUFFLES 

ENTER  THE  INITIAL  PERIOD  (E.G.  1955001) 

1955001 

ENTER  THE  DECIMAL  FLACES 
2 

YOU  MAY  ENTER  IP  TO  5  DATA  UALUES  BEGINNING  WITH  THAT  FOR  1955001 

ENTER  TOLUE  FOR  DATA  FIELD  1 
415 

THIS  UALUE  WILL  EE  4.15 
ENTER  TOLUE  FOR  DATA  FIELD  2 

IsKR 

THIS  UALUE  WILL  EE  -  9999.96 

ENTER  TOLUE  FOR  DATA  FIELD  3 

KEG 

THIS  UALUE  WILL  EE  -  *9999.97 

ENTER  TOLUE  FOR  DATA  FIELD  4 

PUS 

THIS  UALUE  WILL  EE  -  9999.99 

ENTER  TOLUE  FOR  DATA  FIELD  3 

NDPl 

YOUR  UPDATE  CP  TRUFFLES  IN  EECA  BEGINNING  IN  1  '955091 

WILL  HAUE  THE  UALUES  000000415  -  99*9996  -  399997  -  999999 

IS  THIS  CORRECT?  (Y  OR  N) 

-  v 

ENTER  TOUR  LOGICAL  GROUP  AND  FREQUENCY  COR  STOP) 

EECFI 

ENTER  THE  TOR I ABLE  NAME  IN  EECA 

TRLFFL.ES  ' 

ENTER  THE  INITIAL  PERIOD  (E.G.  1955901) 

1976901 

ENTER  THE  DECIMAL  FLACES 
0 

YOU  MAY  ENTER  UP  TO  3  DATA  UALUES  BEGINNING  WITH  THAT  FOR  1976901 

ENTER  TOLUE  FOR  DATA  FIELD  1 
415 

THIS  UALUE  WILL  EE  415. 

ENTER  UALUE  FOR  DATA  FIELD  2 

NOPTCRE 

TOUR  UPDATE  'IP  TRUFFLES  IN  EECA  BEGINNING  IN  1976001 
WILL  HAUE  THE  TO LUES  009090415 
E  THIS  CORRECT?  (Y  OR  N) 

v 

ENTER  TOUR  LOGICAL  GROUP  AND  FREQUENCY  (OR  STOP) 

STOP 

JOB  ERS3WHP ( J0E92992 )  'SUBMITTED  «*  FREE  ALL  FILES  «* 
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SPKBATCH 


DESCRIPTION: 


The  SPKBATCH  (SPEAKEZ  Batch  job)  routine  will  submit  a  data 
set  of  SPEAKEZ  commands  for  batch  execution  without  you  having 
to  prepare  the  necessary  JCL.  You  may  create  a  set  of  commands 
or  change  an  existing  set  using  the  TSO  Editor. 

If  this  is  a  new  set  of  SPEAKEZ  commands,  they  will  not  be 
saved  unless  you  enter  SAVE  XXX.  Then  the  file  will  have 
the  user's  system  prefix  and  the  suffix  of  DATA.  (e.g.  ERSNN. 

XXX. DATA)  You  finish  this  editing  with  a  STOP.  If  the  SPEAKEZ 
commands  are  not  to  be  saved,  then  you  do  not  need  to  worry 
about  the  accummulation  of  unwanted  data  sets.  If  this  is 
an  old  data  set  of  SPEAKEZ  commands,  then  any  changes  made 
will  be  executed  but  not  saved  unless  you  enter  SAVE.  (XXX 
is  not  necessary  in  this  case)  . 

If  you  are  using  a  MYKEEP  file  with  a  nonstandard  name  ,  the 
routine  will  ask  for  the  name  of  this  file.  You  must  enter 
its  complete  name  including  prefix  and  suffix,  (e.g.  ERS45. 
ER3WH. SPEAKEZ. MYKEEP. DATA)  Next,  the  routine  will  ask  for 
the  library  name  (or  DDNAME  for  those  who  understand  JCL)  . 

This  should  be  8  characters  of  the  user's  choosing,  consistent 
with  the  preceeding  SPEAKEZ  commands,  (e.g.  GET  MYPROG  ON  DDNAME) 
However  if  you  enter  MYKEEP,  you  will  be  replacing  the  standard 
file  with  your  file  name  as  the  default  (e.g.  GET  MYPROG  ON 
MYKEEP).  Therefore  you  will  not  be  using  a  mykeep  file  with 
the  standard  name  (e.g.  ERS45 .SPEAKEZ. MYKEEP. DATA) .  In  any 
case  when  asked  if  you  are  using  a  mykeep  file  with  a  standard 
name,  only  say  YES  if  one  currently  exists.  Finally  the  routine 
will  ask  if  you  are  using  a  checkpoint  file.  If  so,  the  routine 
requests  the  name  of  this  file,  which  must  already  exist. 

(e.g.  CHKPOINT ,  not  ERSNN . CHKPOINT . S PE KSAVE ) . 
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Example  of  SPKSATCH 


WELCOME  TO  THE  EZPSB  SYSTEM. 

?•*£,  PSD  DATA  OBTAINED  HEFE  IS  MOT  FOR  RELEASE 
UNLESS  CLEARED  BY  F.A.S.  COMMODITY  DIU IS IONS. 


ENTER  ROUTINE  CODE  (QUIT  OR  HELP) 

SPKEflTCH 

THIS  IS  A  SPEAKEZ  BATCH  RIJN. 

DJ  YOU  ALREADY  HAUE  A  FILE  OF  SPEAKEZ  COMMANDS?  (Y  OR  N) 
ENTER  THE  NAME  OF  THIS  FILE  (ERS63  IS  ASSUMED) . 

EC  I.VSTCK.  TRENDS.  DRTP1 

OTTER  THE  JOBNFff-IE 
ERsS  1  ERSujO 

ENTER_YOUP  10  DIGIT  ACCOUNT  NUMBER 
ENTER  THE  NUMBER  OF  COPIES  DESIRED 

ENTER  THE  REMOTE  TERMINAL  (RMT1S  FOR  ESCS  C R  RMT3  FOR  FAS) 
ktt?9 


IS  THE  OUTPUT  TO  BE  ON  XEROX?  (Y  OR  N) 

N 

WHAT  IS  YOUR  PRIORITY? 

a  FOR  WEEKEND  5  3  FOR  AUERAGEj  AND  13  FOR  ASAF') 

WTAT  IS  THE  JOB  CLASS?  ( USUALLY  C) 
e 


JOBNAME=ER3WD  ACCOUNT=0123456789  COPIES=l 
ROUTE=RMT79  FORM=1431  PRIORITY=l  CLASS=C 


IS  THIS  CORRECT?  (Y  OR  N) 

v 


ENTER  THE  SPEAKE2  COMMANDS  AND  EDIT  THEM  WITH  TSO  EDITOR. 
OHAMuES  WILL  NOT  BE  MADE  TO  THE  ORIGINAL  FILE  UNLESS  YON 
SALE  THEM.  SEND  ’STOP’  IJHEN  YOU  ARE  FINISHED. 

EDIT 


u 

00*310  SIZE =50 
00020  RESTORE  RATIOS 
000*30  YEAR*  I  NTS  Cl  19) 

©040  FOR  1=1,11 

000*50  CLSQ  ARGUMENT  r  EC-3LAMUM  ( I ) )  C  YEAR:  ALL 
0OQA0  CLSQ  ARGUMENT ( ECFR'ONUM(I) )  C  YEAR:  ALL 

Kioto  clsq  argument (ecfrgsla an  c  year:  all 

00080  END  I 
00030  FOR  1=9,11 

00100  CLSQ  ARGUMENT CECBU'PPOC I) )  C  YEAR:  ft  L 
00110  CLSQ  ARGUMENT i EC TOTS LA (In  C  YEAR:  ALL 
00120  CLSQ  ARGUMENT (ECCATNUN ( I ) )  C  YEAR:  ALL 
0O13O  END  I 
00140  QUIT 
END  OF  DATA 

edit 

STOP 

ARE  YOU  USING  A  MYKEEP  FILE  WITH  A  NONSTANDARD*  NAME?  (Y  CSR 

N 

ARE  YOU  USING  A  MYKEEP  FILE  WITH  A  STANDARD  NATE?  (Y  OR  N) 
n 

WILL  YOU  EE  USING  A  CHECKF'OINT  FILE?  (Y  OR  N) 

v 

ENTER  ONE  NRIC  OILY 

*RTI03 

ERSES.  PATIOS . SFEKSAUE  MJST  ALREADY  EXIST. 

JOB  ER3»JD(J0KitO42)  SUBMITTED  ♦*  FREE  ALL  FILES  ** 


N) 


ENTER  ROUTINE  CODE  (QUIT  OR  HELP) 
quit 

THATK  YOU  FOR  USING  EZPSD 
FEADY 
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Example  of  SPKBATCH 


ENTER  ROUT  I NE  COLE  (OF:  OUIT  OF  HELP' 

SAKE 

TH I It  A  bFEAi  EZ  IATlH  FLU. 

IC  VOU  ALREADY  HALE  A  FILE  OF  'SFEAkEZ  COMMANDS?  (Y  OF:  N) 

Y 

ENTER  THE  NAME  OF  THIS  FILE  '  EFS67  IS  ASSUMED)  . 

YUGO. GRAINS. DATA 
ENTER.  THE  JCENAME 
"ERSFBj  , 

ENTER  VOLF  10  DIGIT  ACCOUNT  MMEEF: 

23! 

ENTER  THE  NUMBER  OF  CORIES  DESIRED 

ENTER  THE  REMOTE  TERMINAL  (Ft’TlS  FOR  ESOS  OR  RUTS'  FOR  FAS) 
IS  THE  GUTF'UT  TO  EE  ON  XEROX?  Mr  OF:  hi 
WHAT  IS  YGUR  FPIORITY? 

(1  FOR  WEEKEND,  S  FOR:  fiOERAGEi  HUD  IS  FOR  ASAP) 

WHFiT  IS  THE  JOE  CLASS?  (USUALLY  C) 


JGBNfiME=ER3PDJ  HOC  QUNT -28  1 1 027 1 06  0  OF  IES=1 

R0UTE*R.KT13  FCFM=143l  FRIORITV-1  0LHSS=0 

IS  THIS  CORRECT?  (Y  OF:  N) 

Y 

ENTER:  THE  SFEAKEZ  COMMANDS  AND  EDIT  THEM  WITH  ISO  EDITOR. 
CHANGES  WILL  MOT  EE  MADE  TO  THE  ORIGINAL  FILE  UNLESS  YOU 
SHOE  THEM.  SEND  »STOF»  WHEN  VOU  FRE  FINISHED. 

EDIT 

L 

00001  SIZE=3S 

00O02  GET  YllGOSLfiU 

00003  EXECUTE  YOGCSLfiU 

00004  0:0 IT 

END  OF  DATA 

EDIT 

RENUM 

EDIT 

C  SO  /EXECUTE  // 

EDIT 

L 

00010  S I  ZE=G© 

60026  GET  V  UGO'cLAU 

00030  VUGOSLAU 

00040  QUIT 

END'  OF  DATA 

EDIT 

STOF' 

FR£  YOU  OS  I  MG  A  MV  REEF  FILE  WITH  ft  NONSTfiNDflFD  NAfCT'  (Y  OR  N) 

Y 

ENTER.  THE  FILE  NAME >  FOLLY  QUALIFIED  WITH  FFEFIX  HMD  SUFFIX 
ERS67. ERS1 1 6.  SPEAK  EZ.  MYKEEF .  DftTfi 

ENTER  THE  LIBRARY  (OR  LD)  NAME  'LESS  THAN  8  CHARACTERS) 

MYVEEF' 

FRE  YOU  USING  A  Mr  REEF  FILE  WITH  A  STANDARD  NAME?  (Y  OR  N) 

N 

WILL  YOU  EE  USING  A  CHECKPOINT  FILE?  (Y  OR  N) 

N 

XE  ER'SPDJ  (  JSEOSO'r  1 )  SO  EMITTED  FREE  ALL  FILES  ** 
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»BO£NUf*  «|  T$n  so"rce  LISTI^S  or  the  tuah  procedure 


/•  *  '  " 

^  *  m^°Cm  T  1^711 

/*  Tm£  Tii4m  PROCEPuPE  "*S  »9ITTEn  By  ralTER  HOuSt°»  EOCP»  OC8a. 

*  n  *Lon"S  W  USER  TO  I'PfUTt  TOa-  OOtU“E NT  A T Tun  A/.D  fl  a  T  A  {iSfN& 

/«  Riio  PS0&04M5  and  pscctnuuts  DESCRIBED  in  rwt  TDa-  pyjtE- 

/.  OOCO“t  n  T  4  T  J  dm  my  RD3£rt  L.  otto.  To!  Puncoti'T  E*ECI'»ES  s8£*^E 
ft  P0»  >»E  TLAh  y  A  r I  A  RL£  PoCO'-tNTMTQN  AnO  0BCA80*  E(,e  T"E  0 1  T  4 ' 

/*  TA8UL4P  LISTINGS  »8£  &E‘-ER*t£U  uSINO  T p  T  i  Bi'L  *  -  ANU  TflAHjTiR 
/•  OOCU“t1'  TaTIun  LISTING  is  &E‘.fWATED  using  T04“jnio  4  no  TOA^TXEP 
/♦  one  <’E  TPt  Routines  In  tw]S  RhalEOiikE  ENABLE8  Th£  osp«  TO  SuPhIT 
/•  SP£  ax  r  f  CU--4NOS  EO«  batch  E*EfLTION.  OETilis  ON  t„f  vaPiOitS 
/•  ROUTINES  AR&  FOuNO  JN  ThF  *»E  L  P  P4R4GB4Ph5  A  T  THE  TOP  or  Tk-p 
/»  RROLEutiUE, 

'*  «*LTE8  HOUSER  J/7/7<> 

CONTROL  tNOItNCO)  -SG  h  4 i n  *  *******  *• 

»«Pt  -fUCOHE  TO  TO  *  h  IN  T»E  Patch  ho0£, 

SET  4/ERortO  f J  ISTR(OOOOPOOOP) 

SET  &TD!>tCLOC«0 
SET  flToTPalB&floOl 
SET  4TOLp«t<»Tool  I 

SET  iPL*NxF|.U  t0  IS TR  t  \ 

STAHTi  »8ITE 

«RITE  ENTER  T-t  ROUTINE  COf£  (C8  OUlT  0*  H£Lp1 

RE  AO 

I f  MTR(fcSYSOVAL)  fl£  ISTSf)  T  H£  v  P£A0Oy4l  4TA8n 
SRRflN  op 

»jite  batch  toah  procedure  error,  8lE*se  save  your  output  ano 
*°I  TE  Contact  rai.T  mouse*  4 t  JTsdOR, 

•RpE  La5TCC«4LAStC0  «AtCC«Sfl4*CC  SV&rCNOPiSrSPCHO  JySsCmDp* 

4  S  y  S  S  C "0 

SET  ACUH" Y ] » 

RE TURN 

fc‘  ,u 

ATTN  fl j 

!F  a SY3pC M0  EO  EDIT  T h£ n  |no 
»R I T E  ATTENTION  8R£Aa 

ATTN 

SET  aOu“h Y ] ■ 

GOTO  STahT 

t  N  )0 

I»  A  T  *  5  *  Eg  sprRatch  Wn  SET  aTajp  to  sp«b 
,  ELSE  IE  »T4SN  EO  pqSTOaTa  T«t  N  S£T  AT  A  S<  £0  T  0  a  T  4 

ELSE  Tf  aT4J«  tg  CHOUnc  T  -tN  8tT  ITa3«  EQCOuC 
ELSE  IE  aT4J»  tQ  LIST  TH£n  g£T  ITA$*  F g  TAB 

ELSE  ir  4  T  A  3*  tO  Ot  Lt  T  £  T*“t  N  5t  T  HAS*  £8  0*  L 

EL5E  IE  fcT48«  *,£  ncC  AsQ  . 

»T»B<  N£  TOATA  4N0  • 

A»a$P  nE  OtL  **D  • 


.•ngonool 0 

OOOOPOPO 

AflOPPflOJO 

*O(J00fl0a0* 

•nOPPOOPO 
•'’000O0A0 
•oPOOOuTQ 
A'lOOuflf’PO 
•OOOPPOBO 
•pOOOpIPO 
*"000''  1  1  0 
»popopi?o 
•nOOOPlSO 
•pooppiao 

•OOOOfl  IPO 
/  P  0  P  0  o  1  fl  0 
00000170 
•00000 1  so 

O0OQO 1 «0 

0000"8p0 

oooooe] 0 

O00()OB?0 

O0O0O2S0 

ooooo£ao 

''OOOOBPo 

O0P0''BAftw 

00000870 

bObr)f\i*o- 

O000O8S0 

00000  Joo 

0  0  0  0  0  S  J  0 
OOOQoiRO 
0000" 330 
0  0  0  ri  fl  i  a  0 
OUOoflJPO 
0  0  fl  0  fl  i  fl  0 
OOOOfl J70 
OOOOflJPO 
OOOOfl JPO 
fl  0  fl  (1  fl  u  0  0 
fl  00  OOU I  0 
OOPiinupO 
O00PPR7C 
OOPflOUOO 

ooooprPO 

POPtOUflO 

O0000«70 

POOOPaPo 

OOPPPaBO: 

0000P300 
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APPt  *01 K  *1  T  30  JOUNCE  USTIM;  OF  THf  T0i*  PB0CED0»E 


aTaS*  Nf  ano  • 

4TA9*  N£  COPY  AMO  * 

AtAS*  H f  SPK8  A  N  0  a 
4  T  A  S«  N£  njp  ANO  a 
V  T  a9»  Nf  Ta(A  and  • 

4Ta3i  Mf  QUIT  AnD  a 
aTaSa  n£  HtLP  Th£N  00 
GOTO  STawt 
E*‘00 

GOTO  *  T  IS* 

*EU»I  -wlTE  Th|  FuLLO*TnG  A  PA  VALID  C  U0£  S ( *  NO  ALIASES)! 

aB[T£  S°«sATGH(SPf(H),CMC,00L,ur)C.Ll3T(TA8)  ,  PO  $  T  U  A  T  A  (  TO  A  T  A  )  ,  C  OP  T  ,  ♦ 
CA'E  a  r £  ,  du, del 1  Tt  (OE i ' 

«D I Tg  £nT£H  TM£  ROUTINE  NA-F  FOB  Au»TM£S  T N A 0 0 - A T I  ON ,  F  N  T  f  B  START 

•  w  I  T  £  T  n  »tTu«N  TO  F*EC"TIUU  “OOt, 

R  F  A  0  A»ALbNA"£ 

IA  lHfLpNA-E  CO  $T  ab  T  T-EN  P.OTO  JTabT 
IF  amElpnaxa  CO  C  °£  *  T  C  Th!'!  tO 

« 0  I  T  £  C°EATE  -ILL  CbE  a  T  E  »  N£*  Tuah  vawTiBLF  wITh  Th£ 

»»HE  OOC  UH  tN  T  A  7  I  U  N  YOU  PROVIDE  IT  l a  s  suM  InG  vOijB 

"SITE  TOAa  SIGN. Is  18  VALID),  Tm£  PROCESSING  Jj 

•  “PE  done  in  a  Batch  JOS,  you  ahouLD  GBOiiB  yOliB  ChCDOC, 

-RITE  COBy,C«EaTE  and  DELETE  SOUTINES  Tor.tTHfs'. 

-  9  1  T  t 
E  noO 


OP«OP5l  0 
POPyObJO 
popopSSo 
pyponSao 
POPyPSSO 

popopSAiO 

OOPPPSTO 

oupop5#o 

OUPOPSBO 
oonopfepp 
P0P0P6 i o 
P 0P0P6?0 
PPPOPPJO 
pppppaan 
OOPOPPBO 
pypopppo 
oopoppTo 
POPOPPAO 

popoppbp 

pyppoTno 

POPOP71  0 
pppyp7?0 
OOPOP7S0 
COPPPTao. 
popop7BO 


»o 

a  0 

ts 

I* 

n» 

.  a 
*  G 
wW 
*Q 


lh£l.PNAMf  £Q 

I  T£  pn^TUATA 
!TE 

PE 

ITS 

00 

AhElBNA-E  eo 
ite  DELETE 

n 

ITE 

ITe 

DO 

ImAlBNAhF  ES 
ite  COPY 
ItE 
ite 
ite 
ite 
ite 


TOaTA  OB  l*ALBNAHE  EO  POSTDATA  ThFn  DO 
Batqh  e»acuttun  pa  data  updates  tu  ThE  tda1* 
Data  base,  t-ts  routine  uses  OoCaboy, 

TDATA  TS  A  valid  ALIAS, 


p  u  P  u  P.7  AO 
ppppD7Ty 
pppOP7Ay 
0  n  n  o  P  7  B  u 
POPOPAPO 
p  0  p  P  P  8  1  o 
oyyyp??o 

POPOP8TO 


OEL  OP  ahElp-a he  EG  OEIFTF  ThEs  &0 
■llL  UEL'TE  toah  variables  In  a  batch  JoB# 

DEL  IS  a  VALlu  ALUS,  TOu  ShOI’lP  Group  yqub  CHGD0C, oppooBay 
COBy.CBeaTE  ano  OEL  t  T  E  BOuTJneS  ToGETMra,  pppooS«0 

o  o  p  o  n  e*»y 

PPPOPBTO 

COPY  ThFn  uO  OyPppBBO 

■  ILL  C  BE  A I E  "■  PEP'.aCE  A  NF*  vA»*1BLF  alTn  ThE  OaTa  PiipOOBBO 
And  DOCUMENT  A  T  TON  OF  AN  Old  VA»lAbtt’.  0  nc  UmF  N  T  A  T  J  PNO  0  P  0  0  9  0  0 
Can  he  changed  BIT  T«£  data  Cannot,  (SEE  POSTDATA,  1  pypyPYlo 
YOU  SHOULD  GROUP  YOU#  ChGDpC.  Copy,  C^F  a  t|  a '-0  P(|P0PB?0 

OELE  t  E  POUTl  ‘-t  S  TUGEThep  F  r  h  EFFICIENT  PBoCfcSSlNG,  pynoPBSO 

0  <-■  PQPBay 


fcNDO  _  0  o  o  0  0  B B o 
IF  AHfLpNAHF  CO  OOC  OB  ahEc“nahE  EO  CwGnoc  THEN  DO  pppyP9F»y 

I te  chGOOc  batch  Execution  of  documentation  updaTfs  td  the  pupopbto 
■bite  TOA“  OaTa  Base,  yqh  should  GbO"P  TPys  ChGoOC#  Copy,  PyPOpB*0 
-u 1 Te  C«F  A  T  t  A  x  D  iFlETE  BOUTINES  TOGETHE*  FOB  efficient  oopopboo 
•bITE  PBPCE  811  N'Gf  00"0!00u 
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APP E“OH  *|  TJP  SOURfC  LISTING  or  THE  TQA"  P»(JCEOU®e 


-» I  TE 
£MUO 

IP  |HFLBN*«r 

-°ite  utST 
»«IU 

-•vUE 

-cite 

'“iu 

«»ITe 
-°ite 
»  u  I  T  E 
.JITt 

E  Mi)0 

IF  iHFl.ON*Mr 

-»ITE  ojh 
-  w  I  T  E 
-site 
foo 

It  li.F|.PM-F 


fa  TAB  OS  amFconAhC  F3  LIST  then  do 

SATch  LISTIN'-,  OF  IMS  OaTa  FOR  A  SPEClflEO  TOA" 
LOGICAL  GRP  o  ***>  frequency,  YOU  “USt  a  t  L  n  •>  FOR 
BATCH  EtfCl'TiJN  Of  ANY  CHANGES  BEFORE  EXPECTING 
Thf  “  TO  AP®t  AS  l*j  a  TOAM  CIST  os  TA»  Run. 

Y  0 1 1  HAY  |  I s 1  TOa“  n  A  Y  a  ON  A  VABIAHIE  By  Va°TABL£ 
Basis,  »hK-  is  considerably  C  h  e  a  m  F  r  Th*n 
AN  E  NT  Tst  L'OICAL  Group, 

Tar  is  a  valtj  alias. 


oyno 1 01 o 
nnnyi o?0 

"0^01030 

ooooi oao 
n  i)  o  o  1  o  s  o 

0  0  "  0  1  0  R  0 
0000  1  OTf) 
"0"0 1 0*0 


EO  OIR  Then  on 
Batch  listing 
LOGICAL  GRCyP 


Of  T“t  OOCU-YNTaY  ion  Of  A  T  5  A  s 
AND  f  R  E  Q-UE  nC  y  , 

no 


E3  S°«w  Oh  i“tl.PN*-E  EG  $P*niTCH  Then 
SPARATCH  9  A  Y  C  h  E»EC"YY0N  Of  S P E A s E L / f E 0 F A  $ Y , 
ExTsMng  Cf’““»N0S  “AY  RE  C'SE.0  OS  >,E« 
CO--ANOS  E  n  I  f  wEO  USING  T “t  TSO  EOlYos, 
SP«rt  IS  A  y a l 1 0  a L ' A S , 


-SITE 
-°  I  T£ 

*  °  I  T  £ 

.siTF 
-«IT£ 

£*•'00 

U‘’TO  help 

eopri  -hits  this  routine  is  for 

-SITE  IF  TmE  OOCU-EnTATIOn 
- 0  I  T  £  enTEs  a  f  e  P  OS  k,  if 
►RITE  SAHF  AS  THAY  FOR  THF 


RAYCh  COPYING  OF  TOah  VARIABLE*. 
field  IS  NOT  to  RE  C  h  »  ngfo  ,  Th< n 
ThE  f  S  T  s  Y  FOR  ThE  F I E L n  t&  TO  “t 
PREVIOUS  U°  D  A  t  F  0  Y»sTaRlF»  THE* 


-UIT£  EnTE-  DITTO  0°  0  OR  A  CARRIAGE  RETURN, 

GOTO  IoRCasO 

CRC  A  T  E i  RRTTE  T-IS  ROUTINE  IS  *'R  CREATING  n£.  TOa-  VARIABLES. 

.site  if  y-e  OuCu“Enta r ion  rs  To  re  Twe  sas?  as  that  fqr  ThF 
—  s i t e  previous  upoatEO  variable,  Enter  ditto  or  o  or  a  Carriage 

-SITE  . F  T "S " ,  (YOU  SHOULD  k  OT  USE  THE  *tEP  0°  A  OPTION.) 


REOOtST  JNGnoooi ORO 
o  o  o  o 1 1  no 
0  0  0  0 1  l  I  0 
O0O01 1?0 
r  non  <  l'P 
f'  G  o  0  1  10  0 
o  oo  f i iso 
0  0  0  0 1  1  AO 
nonoilTo 
"0O01 l*o 
00"O1 1*0 
0  P  0  0  1  i  o  0 

Oon^i 1} o 

o  0  00 1  2?0 
0  0  o  o  1  i  s  0 
o  0  0  o  1  2  0 1) 
0 0  «  0 1 2*0 
ooOOT2aO 
0  II  0  0  5  2  Y  0 
"0001 *AC 
TRfc  "<)O0  1  <f  o  ,> 
oooo 1  Joy 
<*0001310 
O0001 J?o 
oooo 1 J  30 
o  0  n  o  1  J  '!  o 
n  0  0  0  1  J  5  0 
0  0  0  0  1  J  A  0 


GOTO  J u  R  C ‘ S  D 

DELI  -«ITE  t w i S  ROUTINE  IS  FOR  oatCh  DELETION  of  TOah  variable*. 

GOTO  JORC  * sO 

COOCi  -RITE  Th[3  ROuTI*E  IS  F 0°  RATCH  UPDATES  of  1 0 A h  OOCU-ENTA T TON, 
.  R  J  T  E  IF  T -f  OOCU“ENTATIO*  fjee"  TS  NOT  TO  R£  CHftNGFu,  Th<  • 

.0  I  T£  ENTfW  he  E  P  Oh  K,  IF  The  ENTRY  Fu»  Thf  FJElO  TS  TO  »E  T  H£ 
-SITE  s A h £  AS  that  FOR  Thf  PREVIOUS  UPOAIEO  VARIABLE,  THE* 


OOOO 1 JTO 

o  o  o  o 1 JAg 
o  y  0  0 1  J  *  Ci 
o  0  oo 1 ao  o 
o  o  0  o  1  « 1  0 

Oy 00 1 “PH 
o  G  o  0 1 R TO 


’  »RITE  e  N  T  F  R  OITTO  0*»  0  DR  a  CAR°IaGE  REtg®n, 

GOTO  .U.'HCasO 

IOATai  » R I  t  t  This  routine  IS  FUR  BATCH  UPDATES  Of  T(JAH  0  A  T  a 
GOTO  JuflCAwn 

TA9|  -RITE  THIS  ROUTINE  PROVIDES  A  TABULAR  LISTING  Of  TOAH  DATA 
-RITE  INUlvtOUALLY  OR  BY  LuGICAL  GSOyP, 

GOTO  JOBCarD 


o  V 0  0 ) UUO 

nyooi  <*5u 

0(001  R  *>  0 

nynni a7o 

o  0  0  0  1  u  »  0 

OOOO 1 

Oyno 1 500 
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*i  rgn  su"«ce  listing  or  t*e  tpa*  procedure 


niRi 

SPKbt 


.ojTt  this  ROUTINE  PHi'vU’tS  *  UTRFCTOOY  or  TDah  data  groups.  ooooiSin 

uDTO.IoRlA'D  oyoolSPO 

»HtTE  Tf>ls  15  A  5P€A»t2  MATCH  ?u‘  ,  OyOO-ISSO 

JET  AOhaETLE  E 0  ASTRO  -  ooOOISoO 

-RlTt  on  you  AL8tAoY  have  a  E  J  yE  rE  sPE*kEZ  commands*  (y  nw  n)  ooooibno 
MEAD  *an$  ooi'Ot  VO 

tr  lA'S  to  N  OR  AAnS  EQ  KO  Th£n  do  ooooiSTq 

SET  Af Ol T nA«»ST o (  'SYSI  ,CL  T  5  T (OU-hV) »  DaTaI  0000(5*0 

»“lTt  lf  you  Save  T~t8t  jdEa*f^  COmmanus  Wr-TyF  IN  Th£  t3o  tOjToR  00001500 
«RITE  is*vt  x*x>,  T-tN  ITS  NA »t  •  let  tS’SPCtE, ’.***. ()*TA  ooooiboij 

ENon  ooooisio 

t  L  3  E  n  y  o  q  o  0 1  o  2  o 


*°  I  r  E  t^TEM  THE  V“F  OE  ThJI  file  USY5PREE  IS  ASSU-gnj, 
«E*^  1 1 0  I T 0 A 
E  NDn 


n  0  0  0  1  n  s  0 

oyno 1 600 

OOO0  1 b«0 


GOTO  JoRCarO 

JuBCA-ni  » « 1 T t  t  n  T  ER  T«t  J Oy N A m t 

READ 

IE  A$TR(ASrSOvAL)  nE  a$TM)  THEM  REAOtlVAL  AJUSnahE 

•  RITE  E  M  7 1 P  YOUR  to  DIGIT  ACCOUNT  NU“@FR 
OE  A  0 

t  E  iSTRUSYSflVAl.)  Nt  aSTRII  ThFn  9EAD0vA(.  IACCOuNT 

* 8 1 T p  ENTtR  The  number  t*  COPIES  OESlREU 

REAP 

IE  AFTPIIJVSPVAC)  Nt  astro  Then  REAOOval  InCOPy 

"HITE  E  <  T  tP  The  »t  “0  t  E  TE-*INaL  (R*TtJ  FOR  tSCS  OR  RmtS  /QR  EaS) 
“6*0 

IE  nS  TP  USV  JOY  A).  )  Nt  fcST“0  Th£n  REAnOYAL  IbnyTt 

•  RITE  IS  THE  OUTPUT  Ty  0F  pN  x£t.nxT  (Y  OR  N ) 


OHJ001  *>A»0 
0  0  0  0 1 879 

0000  t  8*  0 
0  0  n  0 1 oo  0 
00001  TOO 
0 0 0 0 *  no 
00001 7  ?  0 
Oooo 1 7S0 

O0O0  1  7  <*  0 
OoOO'TSO 
00001780 
0  0  0  0  1  7  T  0 
0  0  0  0  1  7*0 
OOOO 1 700 


READ 

IE  ASTP  USySCVAL)  Nt  ASTRO  Then  hEaOOvaL  IxERAnS 
IE  A*tRA‘. 5*yES  qp  IxFrAnjay  ThEn  • 

Ou 

5tT  AE0“M»*£On 

*  R I T  f  YUU  Huai  {ilvg  Tnf  'OPERATOR  A  REQUEST  EOR«  FOR  t  f  RQX 
-RITE  PROCESSING,  hi  t  a  3  E  alLQR  3  Days, 
aft  AS Y$0uT*0 

E<oy 

else  on 

SET  AFOR“*luJt 

IF  ARUUTE8R-TJ  T-EN  'IT  ISysouTbC  ELSE  SET  aSYSRUTpa 

E  Nr  q 

PRIJBITYI  set  a p A n s  Eq  no 

PrTyii  -rITE  what  IS  YOi'P  psiority? 

-PlTt  (t  fob  •  £  £*  E  n  0  »  }  F  0»  AVERAGE,  AND  13  FOR  ASAP) 

•  E  AD 

I r  astr(aSysoval)  nC  a str  r )  then  -eaoOval  iprty 
I»  1 9 c  T  V  E  Q  13  and  IPANS  fw  NO  This  00 

•  POE  P  *  l  OR  TTY  13  Cf‘5TS  TRHCt  1J-E3  ThaT  HE  P»10RTtV  3. 

•  POE  00  yqu  ■!  sh  to  C"*'  Gt  priority?  tv  q«  n' 


0  0  0  0  I  *  o  (> 

OUO01  8  1.0 

oooo' «?o 
00001 830 
0 000 1 800 
OOOO 1 8«0 
0  0  0  0  1  8  vo 
oooo 1 b?o 
0  0  0  0 1  8*0 

00001  PRO 
0  no  0 1 90  0 
00O  0 1 9 1 0 

0  0  0  0  1  9  ?  0 

nono 1 9X0 
OOOO 1990 
0  0  0  0 ' 8C  O' 
00001980 
0  OOO 1 97o 

OoPO 1 V*n 
00001 990 

onoo?000 
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APRfcNOU  t|  T  80  SOU-CE  L  r  5  r  I  or  THE  TOAH  P0OCEO»J«e 


kg*n  4Pan  5 

\t  abanj  EU  r  on  apans  f  .  rES  W-  SOTO  PRT  y  | 

£nop 

'a I T£  --AT  IS  THE  jna  CLASS?  (USUALLY  CJ 
mMO 

IF  AST-(ISTSOVAL)  nE  ASTH(J  Im£n  s  t  A  00  v  *  l  ACL*SS 
I*  »CL >  SS*C  T -t h  no 

SET  1-TNiiIf  Jio 
SET  isECONP8«2n 
E  sOO 

ELSE  T  F  ACl*SS«0  T«FH  pn 
SET  A  •  IMiTF  5*2 
SET  ss£t0f.D3«0 
f  SOU 
FlSE  .n» 

« 0  I  T  t  t  T  F  «  The  wiiHRtn  OF  HjMJTFS  ALLO.FO  FOB  CLASS  &CI.ASS 
SEA’S  AHTN'ITES 

-  B  I  T  f  E  n  T  t  R  T-£  NUMBER  Of  SECCNOS  PER-ITTEO 

REap  nSEtOSOS 

£*0" 

»aIT£  jM|jH*H£«t.tyHNA'-F  A  r  C  OU*  T  *  s  *  C  C  O'  in  T  C  0  P  T  E  S  ■  %  Nr  r)P  v 

«°IT£  RCijTE«A»Oi'TE.  E  OR  — *  aF  Ohm  PRIORI  T  v»»ps  T  r  CL*SS»AClA#S 

-  P  I  T  E 

-  W I  T  e  IS  This  CORRECT?  fY  cr  H) 

RFaD  A  i  >1 3 

IF  Aa»s  £Q  n  OH  ianS  El  so  ThEs  OO 
-»ITt  PLEASE  Try  ACA 1 m 
UOTO  JUHCASO 
E  son 

IE  aTass  EO  SP  *  8  T-£s  00 

-RITE  t v'  T  F  b  T-E  Sp£**El  CO-'-ahcs  ami  EDIT  T-E“  hIth  I  So  Er'!TQR, 

-rite  c-ah&es  -ill  rot  »e  -adE  to  t-e  original  file  u»<lf$s  »ou 

»  b  I T  £  SAVE  The-,  SFNO  STOP  «.m£n  you  AhF  FisjSmEu, 
tOITlt^ITUA 

IF  tEP  I  TDA  EQ  a3TR(  *8T3t  ,ClTST(OU“-y)  »  oata)  t-En  OEL  10 
T  F  R  m  i »,  STOP 

UHNIIH 

y  off 
TOP 

Insert  //SJP9SA-E  JOB  ( AACLPUST , » Tjnoo, , , . , AnCuPy , ) , 

INSERT  //  »sp,«aTch', 

INSERT  //  HS0.LEVFL*I<PaTV*tPBTY,,sOTTFYFASYStlI0,, 

INSERT  //  TI-t«U“TM  Tr3.#A3F  COnOS,  )  . CL  A S S* nC L A S S  . 

Insert  /  ?  n  iji  •  T  E  PRINT  iROUTF, 

INSERT  //STfP?  E*fc  ERSOASI  S, REGION, OaSIS»oOOk 
INSEHT  //OASIS, S»E A*IN  00  • 

nOTTo" 

-RITE  are  you  USING  A  *i YKE t °  FILE  -ITH  A  nQNSTanoaRO  na*E?  (Y  0  = 
hfaO  aanS 

IF  IANS  EO  Y  OH  l A  N  3  EO  YES  THEN  ou 


o  o  no  ?o  t  o 
o  o  o  o  ?  o  ?  o 

00O0P03O 
00O0?0R0 
OJO020SO 
O()O0?0A0 
nnrtOPOTo 
no-OPliAO 
0(|00?ORO 
OO"  0?|fl0 
»'0  OOP  l  tO 
0  0  0  0  ?  1  ?  0 
0  0  o  o ? 1  So 
oo^oPlao 
O(j"0?l«0 
o  on  02 i  M) 
oonnpi to 
n  0  0  0  ?  1  •  0 
non q? I  no 
oonopdno 
o  o  o  n  ?  2  i  o 
0  0  o  0  ?  2  P  0 

Oi)0(j?2'o 

o  «  o  o  ?  2  o  o 
nono2<|£0 
o  0  n  o  ?  i  h  0 
o  o  o  o  ?  2  7  o 
i>ono?2*o 

O0O022RO 

OOOOPJOO 

o  o  o  o  2  3  i  o 
oonnj jpo 
0 1)002330 
<10002300 

O00OP3S0 
0o0C?3a0 
00O023T0 
o  0  0  o  ?  3  *  0 
<’ «  o  o  ?  3°o 

-nno2R"0 
n  -i  n  n  ?  u  i  y 
o  0  o  o  2  R  P  <’ 
o  u  o  o  ?  a  3  o 

nooypJOv 
00002US0 
o  i j  o  o  2  “  n  0 
noon ?rTo 
N)  )0O0?«*0 

on 002RRO 
P0O025O0 
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»pO£NUt*  a  |  T  $0  8uu*ci  LISTING  OF  Tnf  TDAn  P»uC£"U#g 


ir 


,a[Tt  t'-IEN  T*£  Ml'  NA“t,  f^LLy  QuALlMEO  -ITf  Bo  t  F  I  *  »nD 
-f  »n  r*Mlf 

«a  [  T  f  t  *•  T  £  “  T*£  l  I  *“a  aBY  (On  pO)  nA-f  (LESS  Than  S  CNa»aCTFW 
n  E  i  n  l  “  v  u  0 

If-SFST  //OASIS, A.*'Yun  oi'  I  S’.»4hyF  he  ,  , 

Insert  //  oIS^M-n 

t>.  .n 

roiYa  AOt  YOU  USING  a  nyhFE*  file  «!TW  A  8TanOABu  namF7(y  0° 
«EaO  sans 

IF  A  4  N  3  to  y  ON  LANS  FlJ  YF5  TMtN  no 

I'.^FOT  //OASIS, uy«ttP  0"  0si.  *ISTSPWFF  .  «  8PE  *<EZ  .N  Y«  tEp.D  *T*  » 

INDENT  //  0JSP»3HH 

t'llO 


SuFF  T>oqoo2S10 
'’0O(.?>3?0 
3)  n o O'  ? S J 0 

oonoPSuO 
nopnPSSO 
no  Oo?S60 
noodPb  TO 
N)  nonc?,3*0 

noonosoo 
noou?oOO 
nopn?<>1  0 
noor2n20 

00OC28S0 


•  bjya  »tLL  TO"  BE  USING  A  L*t C » p0 I nT  FILET  (T  0®  nj 
WE  4  0  AANb 

JF  UNS  E!)  y  0 N  IAnS  f'J  YF3  T»tN  CO 
•  u I T  E  fcNTfW  ONE  nan?  ONLY 
OF  AO  IC-*F II E 

„!}[T£,  is  Y3P“EF  ,  ,  aCn*F  ILf  •  «  Spt  *SA  *6  “UST  A(.»EAOy  EyIST, 

Indent  //OASIS.IC***  I L  t .  00  03N**3 /SPSEF  ,  ,aCh*F  T LF . , 4p t *  8* v E  . 
I»)iFwr  //  0I5p«5*h 

E  ndo 

I  N  S  F  -  T  /  / 

Tnp 

F  I  NO  «/?- 
C  •  “>/7m/»na 

3UH“IT 

Eno 

ENOO 

iTASu  il  YAH  THEN  00 

•  SITE  00  YOU  »  ISn  TO  LIST  BY  GnPLIP  ON  vAR!A»tE7  (6  i) 

N  E  A  0  AANj 

IF  s$MH3 T 3 ( I  I  ’ , IANS )  Fa  b  the*  do 

T  A  *  0  1  |  -NITF  ENTEB  YQU»  LOGICAL  bBO'lB  ANO  FBEOijENCT 

PF  AO 

1»  ISTN ( fcSYSOVAL )  NF  l 5  TN ( )  7  N  E  N  SEAOOVAL  iTOlbF 
«o  i  T£  IS  ITOECF  connect?  (Y  u»  n) 

HE  AO  l A*  S 

I*  CANS  £Q  N  OB  A  A  s  S  EG  NO  T^fN  Oft 
-»ITE  PLEASE  Try  again 
GOTO  YARyi 
£  noO 

EDIT  *tR36fi  .lI^oaBy  ,  T0a“,USFn3,CnTe  f  TA0UL  anI  )  •  CNTL 
C  10  /J'iBKa^E/aJOBnanf/ 
c  10  /PNOONI'/ lACCOu*-  T  / 

C  10  /CrPItS/lNCU°Y/ 

C  20  / N  N I  ON  I  TY/ApBl  Y  / 

C  230  / 1  (»F  A  P  bB  v  /  A  T  pi  GF  / 

C  5?0  /(.GFAhoBv /kTOLSF/ 
c  *«•  /F0*>'/aIT«(4SyS0uT,,,if0»»‘,) 


noonJodO 
nooi,  ?bSO 
nOOO  >»A9 
oOP'jPoTO 
00no?6*0 
noor.PbOO 
noooBTnu 
0  0  0  0  ?  7  1  0 
PQO02720 
oon^PT Jo 

0  0  0 ')  ?  r  0  0 

nO 00 2 7*0 
O00O37N0 
nono277() 
OOno  27*0 
n  0  0  0  B  7  0  0 
oonn?N* 0 

0QO02S1 0 
non02N20 
nOnu2n JO 
OOO  (1 2800 
nonn JSSo 

noor  2  8  a  0 

000 u 2870 
00002880 
O0O028O0 
Aon(i2NO0 
0  0  0  c  2  9  1  Q 
0  0  0  0  2  N  2  0 
oom  2N  jo 
000<.2«uo 
nooo2B*o 
0  0  n  0  2N AD 
00002B70 
oooopbao 
O0002BB0 
OOOOJOOO 
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***Pt».ul*  ai  Tjn  SUURCL  uI$t I*’(*  or  t*E  TOa*  PooCtnuRE 


3 1 1 H  “  I  T 

E  n  i> 

E “E  E  AL L 
G°Tr>  s?AHT 
Enimi 

EDIT  *  8Y  b  !  ,CtI5T  (PuP»r)  •  OTL 
TOP 

INSERT  //lJpHNA“t  JOtt  UaCCOUNT.iT3000,i,,»InCopt.), 

del  10 

(JAINUm 

INSERT  //  *T0ah  taRuLab  LIST', 

INSERT  //  ►*SGlEvEl»l,P9TY»AKBTYi,Mvrifv«llSv$Uin., 

INSERT  //  T 1 -£» ( A-TM'TfS, , A3FC0N0S . ) ,CL AS5»iCL*SS. 

INSERT  / ?WQUTf  ppjmt  lOiju  T  E  , 

INSERT  //STEP01  E  *  EC  PG“*TPTAHUl«,9EGI0Ne3J«n 
I  S  P  -  T  //STEPLIP  oo  USN«£05fe6.Ll80i9Y.LOAO,PISP«SHR 
lNSEwT  //GO.ETOSF 001  00  • 

■  BjTg  on  YOU  »AST  THE  U5UA|.  PRINT  OPT  T  On»  < A  T  SS I  Nft ,  If  HOC  S  )  ? 
REAP  AANS 

IP  A  a  n  3  n£  w  anO  AANs  n£  no  Tm£n  00 
INSERT  -ISSING 
I njert  ZEROES 
GOTO  T  AH(JP  T  ! 

Es00 
ELSE  °0 

« 0  I  T e  SEE  TOA«  OOC U“E Ai T  A  T  10**  *0*  OPTIONS, 

«°  I  T£  EnT£R  STOP  *«EN  YOU  A  9£  P  T  N I SHE  0 , 

T  A  «  n  P  T 1  I  .HITE  ENTEP  OPTION 
HEaO  aORT 

I  E  tOPT  EO  STOP  T  wt  N  GOTO  T  A  BO  PT2 
INSERT  AOPT 
GOTO  tahopti 

En  JO 

TA80RT2I  INSERT  STOP 
Insert  variables  033a 
INSE-T  /? 

INSE-T  //GO.ETOfcEOOl  00  SYS0UT»A  , 

insert  //  uca«  (oece“«eba,i.re  ci»i  33,  bl*stze«i  33oo  j 

INSERT  //GO.F TOTEOOI  00  SYSOUTBA, 

InsEwT  //  OCB«(RECE-«eba  ,  LHf  CL«1  SS.^HSTZEri  33noJ 

WRITE  £ »  T  E  R  STOP  OR  NONO  «HgN  YOU  ARE  FINISHED, 

iNSEwT  //GO.EYolEool  OD  C.SN«toSTa,T0A«,STUBS,0ATA,0TSP«SH9 

INSF-T  //SYSPR1NT  00  SYSU"T«a 

INSEwT  //SYSOUT  1)0  SySOUTiA 

Insert  //SYSOUO  00  S  t SOU T  » A 

Insert  //ST30PUUT  00  StSuUTrA 

I nse r T  //STSOTERm  00  StSu'JTbA 

insert  //GO.CCINPUTS  00  • 

TA91I  rrITF 

•tOJTE  fcNTEP  LOGICAL  G«0"P  AWO  FREQUENCY  (OR  STOP), 


o  00  0  3  0  1  0 
POOOSnEO 
00003030 

OoOOTOug 

oon03'j*0 
noOOTOfcO 
000030TO 
00003030 
OOOOSuOO 
00003 l 00 
OUOOT 11 0 
00003120 
00003  1  30 
00003180 
000031S0 
0000  3  ISO 
0  0  0  0  3  l TO 
(T  OR  n)O000T1A0 
OOOO  3 1 «0 
0000*200 
0000321  0 
*0003220 
00003230 
oo*o3«;ao 
00003250 
00003250 
00O03<!T0 
*00032*0 
00*03200 
00003300 
*000*51 0 
*0*0  3 J?0 
00003530 
00003580 
O0003550 
00003350 
000013TO 
000035*0 
0000  3  500 
000038*0 
00*0381 0 
00003820 
ooog  3830 
00003880 
00003830 
000038*0 
0000  3870 
00n07«*0 
O0003UP0 
OOO03S00 
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*  ppt  "*l*  T A  At  Tsn  S(  'inct  LTSTi*G  (jF  TH|  Tla-  PPoCtouPf 


\ 


It  t;>Tw<«.SrSL!VAl)  tO  *UM0  U»  A  5  T  B  (  l  $  y  5  \j  V  A  L)  1 0  STOP  ♦ 

0«  AST*  t  AStAOVaI  )  £0  Ou  ?  T  T  “f  M  COT()  T  A  0  ? 

I  f  *STN  (ASYSOVAL)  s£  «■  3  T  W  f  )-  T-tA.  Bt^O^vAi.  ITOL&F 
I  T  t  £NltH  T-t  VAB!aK|_£  *.A“t  ]N  iTOl,r.P 
kf  m 

IF  AbTH  (AST8CVAL)  A.?  a3TN()  1~E*  StT  aTDNAhE  £0  A  5  T  0  US  V  *0  V  At  ) 
•»I  Tt 

■°ITt  Tut  VABIASlF  *A»E  1  S  1  A  T  b  N  4  l  £ 

»°ITt  Twt  LOGICAL  &BUOS  A  '<0  FBtOLlf*CT  X  S I  aTuICF 
«B  I  Tt 

<*bih  is  This  connect?  (y  ob  nj 

BE  A •’  AAA'S 

I f  aavs  e. q  n  on  ianS  Eo  no  TmEn  Oo 
■  »B  1  T£  Bl^aSF  TBY  At,  A  IN 
goto  r  a  -a  1 


"OOl.SSi  0 
OOOlt  A320 
C'OCOSSJO 
''OOG^Suy 

oooossso 
opncsSAO 
000 1,  A37  0 
0000  ss*o 

OOOQ  Ab«0 
POOP  AaOO 
oOOOSoT 0 
OOAy  Yb?0 
OOOO'AbSO 
00n(/SoO0 

oopoabno 

oonos&so 


E*  on 

INSERT  U2GE  T  LGF»»TOLGr  yEY«ATONAn£  TP«0  l°*0 
GOTO  Ta91 
▼*<*£»  *-ITE 
|  a; s F  w  T  t*U 
INSERT  /? 

l  *  S  e  n  T  //02DATA  00  Ojsaf k Sb6,O2,0TLC0a Ti  ,ONL  I  N£,OATA  , 

I'lS^kT  //  0  I  5P1S-O  ,  ■'Ca«°!>OBr,«0A 

lA'jAkT  //l'2jNOt  *  01)  bSN«t“3&e.O2,PllCTN0X,C*Ll*E.0ATA, 
[N)f  jT  //  0TS°«?-'B,r,CB«OsnSG*IS 

INSERT  / / A UO I T  DO  DH“«Y 

insert  //tntgc.EB  00  oSAiPt-JSso. i,2. ^BIGG£», Data, 

XNoFyT  //  otSBaShB, 0CB»nsnBG«IS 

INJAkT  // 

TOB 

c  •  NB99  -/7**/aBA 

50«MIT 

E*0 


f'OOoSoTO 
OOOiVAoAO 
O0O<i  tBBo 
0  0  0  0  A  7  0  0 
1  p  0  0  A  7  1  0 
0Un0A7?0 
00O0S7S0 

nooyA  )uo 
0  Q n  u  A  7  SO 
0000  t  7 fc 0 
OOOOS7TO 
"00077*0 
0  0 " 0  A  700 
"Oogasoo 
npoo  t»i u 
oooosa?o 
nooosexo 

n  0  0  0  7  a  11 0 


£*00  ooooAgso 

IF  iTasa  to  0 1 b  T^t*  Ou  ooooseso 

0 1  h  !  |  *  B I  T  E  t  *  T  £B  the  LOGICAL  &9QUP  F"B  amKh  TOO  «TSH  A  OJPECT0BT  (lOOU^gTO 


BE  AO 

JF  H.STN  (  aSYSOVAL  )  n£  ASAP!)  T  Ht  ai  BEAOOVAL  4T0LGF 
«  b  I T  e  IS  a  TOtGF  COBBtCT?  (T  OB  N) 

BEAD  A  A  N s 

IF  A  A  N  a  LJ  N  ON  A  A  N  S  F  i  M'  T P F N  00 

aOite  a'llasf  twy  Alain 
G°rn  01=1 


nnnnxHKj 

noooTgoo 
OOOOANflO 
0QPUA9I U 
00007B20 

oopoapsp 

nyo 0  tY«o 


£nijO  00"  !>  TBS') 

NP I TE  OP  »Oti  «A*T  A  COMPLETE  On  0B I  f  F  Ll»TI*G  OF  THE  ♦  ooooTBiSO 

OOL"HENTATION?  (C  0“  S)  O00OT970 

B£  AO  IANS  OOOOTNAQ 

IP  iS"tt3IB(1 II »»A*S)  EU  C  T-t*  00  POOoSPPO 

to  I  T  ,tN$**.LlPP*l»T,TOA“,USf  (>I,CnTl  (OIBfCTBY)  »  C*TL  OOOOaOOO 
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APPEn 01*  A |  TSO  SOURCE  LISTING  0*  THE  to am  PP0C£DUP£ 


C  10  /JOBNAMt/iJijPNApr  ,/ 

c  10  /ppluno/aaccount,/ 

C  10  /COPItS/lNf nPT,/ 

C  £<>  /PR  i  or  I  T  r  /  apRTy  ,  / 

C  190  /U.TAHb8V/*T0U,?,/ 

C  2Su  /SySOUTaa/sySOuTaUSySOUT.,  jlEQBR.)/ 

3u»m  I  T 

£no 

£NljP 

tisf  010 

£0 1  T  'tRSob.LlBBARY, TDA-, USERS, CnTLCOIhDQC) *  CnTl 

C  10  /  J0lNAMt /AjQHNAMf  ,  / 

C  10  /PROJnO/IACCUUnT ./ 

C  10  /COPltS/H^CoPT,/ 

C  20  /pb i oh  I T y/4B«r y  ,  / 

C  190  /l(«*'AHB9V/4T01.(iP./ 

C  2*0  /SYSOIITPA/STSO>UT»(HYBOI'T,  •  >/ 

SUBMIT 

fcNO 

£H0O 

enoo 

IP  kT*s«  eo  cdoc  op  iT*8*  ru  copy  n»  tT*$n  to  oti  ♦ 

UP  ms»  EU  CB£*TE  Then  DO 
£ 0 1 T  *3TS1  .CUSTinu^r)  *  C^Tt 
Top 

INSERT  //ijo8nar£  jnB  ( lACCi'UHT  . ,  TSOOO  ,  ,  /  , » 8nC0PT  ,  }  , 

DEL  10 

IJNNU" 

INSERT  //  'TDa*  DOC  UPDATE*, 

INSERT  //  “3CLEvEL»l.pOTy»AP0Ty.,N0TrPy«A3T5UI0,, 

INSERT  //  T1“*»<Ih!sims5,,isEC0h0J.) ,CLAS3»nCLA*3. 

Insert  /?route  print  »poutp, 

INSERt  //3IEP?  E*EC  £RS0AS13, REGION, QA8IS»600« 

insert  //oasis. speakin  do  » 

INSERT  S17M5C 

INSERT  EChQ(INPUTCOUPO)  itOAO  TOA-jLOAD  TDPL£N 

»h  I  T£  tN  T  E  ®  TOUR  T  0  *  p  SIC.N-IN  nAhE  anD  pa33R0“0  (ERR**  P*SSl 

READ 

IE  tSTR  USYSPVALJ  nE  ISTRf)  Then  R£AODV*L  ITQSIGnI  |lD8lGN2 
INSERT  TD  a  >*  3 1  UN  I  n  lTnsrGN|  iTOSIG  n2 

Insert  TUPoBRAT•■Tu*|TOOT3tTu■■  *  |  SPACE (S) 

CODCIl  *a  I  T£ 

SET  4Nt-txlST  tQ  n 

I»  4  T  A  S  A  EU  COPT  Th'n  set  tTNHOTE  £  Q  ISTRICLD  ) 

ELSE  St  T  4  I  N  NO  T  E  EQ  uSTRO 

«»IT£  enter  tour  4 1 NNOTE .LOGIC  At  GROUP  *ND  ESEQUtNCT 
READ 

I  f  ISTRUSySOVAL)  eg  *  TpE  n  SET  43TS0VAL  EO  *E£P 

IE  ISTRUSYSOVAC)  £a  n  Then  jct  aStSOVAL  E9  DITTO 

IE  83  T  R (4ST30VAL)  n€  IJTBO  ANO  4ST»t«»TSDVAL  )  N£  DITTO  ♦ 


ooooeoi o 
0ong«0?0 
ooooaoso 
oyooaoao 
ooooaOsn 
ouopaOAO 
0OO0U0T0 
ouooaoRo 
noooaOPy 
0  i.i  o  o  a  i  b  u 

ooooa  1 1  0 
o  o  o  o  a  l  ?  o 
ooooa l so 

ooooa l «o 

OuOUa 1R0 
OOOya Ibu 
oynoalTO 
onnoa  1  »u 
0090  a  1 «0 
ooaoaino 
0  o  9  o  a  2 1  o 
9o«oa2?o 
90908230 
aoooaJao 
9QO0C240 
9uooa2NO 
9oooa2To 
000oa2«o 

009oa29u 
ooooa J90 

0  0  9  o  a  J  i  o 
ooooa3?o 
nonoo330 
00008 Juo 
9090OJEO 

ooooa Jng 
oonoa  jto 
oo"0a 3*0 
ooooa joo 
ooooaaoo 
ooooa# 1 o 

9()900«?0 

00008#30 

ooooaauo 

0090aa#0 

noooeaAO 

009oa«?o 

9Q004#AQ 

ooooaaao 

OOOOOiOQ 
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ApogNOI*  *|  Tsn  SOURCE  t  T  3  7  I  *>G  OP  Twf  TOa*  RROCEntiac 


Then  wEinovii  atol-Gf 
•»«*!?£  t'lTft"  THE  AlNhuTt, VARIABLE  NA*E 
•it  *0 

IP  AST-)(ASySUVal  )  £Q  *  Infs  SET  ASY80VAL  S3  wftP 

I»  ASTB(AST«UVAt)  to  0  TmJs  sc  T  iSYSuVAL  EO  DITTO 

If  AsT,  (aSy«0val )  a£  HST«n  asl  aSTB(AS»SDvA£)  n£  DfTTo  THt  N  ♦ 

8 1 T  A  T  Os  a  «F  F  Q  iSTB  { isVSnY*U 

I r  Has*  El  Oft  Twps  nil 
wBITt 

WRITE  T*t  vARltRtE  To  «f  p'EllUr>  Isi  A  T  ON  A  h£ 

WRITE  The  LOGICAL  (*RuhR  jwj  FREQUENCY  ISl  aTuLGP 
WRITE 

WRITE  IJ  THIS  CORRECT?  ( Y  OR  '■) 

RE  wr  AANS 

IF  AANS  £C  A  OR  lAAS  FU  no  TrFA  00 
»  B  I  T  £  Pi  E  *  Sf  TRY  A  L  A  I  N 

GOTO  CurCl 

E^oO 

Insert  TDNAw£»*ATnAAHF*fTntGP»*ATDLGE* 

I N  j  r  r  T  TO  TP«u  I  TOtpR"  |  T0*»*  f  OEt  lONAhf) 

GOTO  DElt 

£A,)0 

IP  kMS«  f'.  COPY  ThEn  L»n 

write  tMM  The  l£w  L^GItAt  GROUP  AAO  f  BEQuE  NC  Y 
RE  AO 

If  AST* USYSOVit )  tO  »  Tnrs  Sf  T  ISYSUVAt  £ u  wC£R 

If  F3TNT nSYSOVAt)  tQ  n'THfM  5ri  aSySuval  f L  UtTYO 

If  *3T»Ca«!taoval)  sf  »$T-{)  a^u  48TO(l*YS0vAtI  a£  UTTTo  TK£>  ♦ 
SET  H'.TDtuF  £0  ASTR(AS»Sn*AL7 
f  L  St  SET  AsTPuGf  EO  tT«tGf 

wRJTE  £  S I E  R  JH£  s£w  VARTAWtE  M  A  ME 
RE  A" 

If  ASTRUSYStVAL)  to  «  ThFn  SET  iSYFOYAt  F  U  *EEB 

If  ASTW  (  aSysuvaU  to  n  Ti-pn  SET  aSySuval  EJ  0 1 T  T  o 

If  a5t«  (  ASYSi’VAt )  s  £  A  3  T  h  f )  A  a  o  i  5  T  R  ( A 4  Y  3  0  y  a  t, )  st  UITTO  THE*  . 

ftT  A  .TOMA“t  fO  A3 y«  (  sBYSOV At ) 
p.lSt  SET  AsTCsAwf  FU  aTOuAhE 
write  Uf'ts  ThE  A£w  VASIAbLt  t>  1ST?  (Y  OR  N) 

RE  An  isf-FiTSY 

if  asfwfiist  to  so  them  set  asere*ist  eo  n 

Esi'n 

ELSE  nrj 

If  ATA3"  FG  C  s  £  A  T  f  T»fn  00 

«RITE  ENTfR  The  Initial  RfRTOO  (£ ,  G«  Hnj») 

Rf  AO 

If  ISTwUStSOVaU  to  ■  ThE  s  4E  7  ASvSOVAi  EQ  *EEP 

If  A3Yw(AAY30VAt)  EO  0  Thfs  SET  AJYSDVAi.  F  3  DITTO 

I»  A3TW  caStSOYaL;  nf  astro  AMO  ASTB(t3»S',‘»*0  xfc  OlTTO  ♦ 

ThfH  RfAOOVAt  A  T  0 1 R 

WRITE  ENTER  THE  CAST  RtRIOO  (E,G,  aTOLPT 


0  f)  n  0  a  5 1  0 
non  oas?o 
PunO#STo 
noooabao 
OuPOoSSO 
nnnnabfcO 
OonoubTo 
0 1  0  o  «  3  a  0 
(K  ooaSRo 

00n0O6fl0 
0  o  n  0  fl  *>  1  0 
OoncasPO 
P jOOUOAQ 
onpOubuO 
noPOab^O 
POPOubfO 
OOftOO^^O 
no0Que*0 
fro  c  0  *J  ft  0  0 
OOOOaT^O 
p  0  0  0  a  7  1  0 
ocooaTPo 
pnA587-»o 
noPoa7aO 
OJOOaTSO 
OPOOoTaO 
0000a770 
n  o  0  0  a  T  •  0 

a  DPOa  Too 
AvOOaAOO 
ponnap i o 
POOOaf?o 
oonpaw  a o 
POOOuRaO 
p  jooa*So 
AuPPaA so 
POO0aP70 
OOOOooAJ 
POnoasoo 
OOOOaROO 
n 0  0  Oa  R  1  0 
OOPOURPO 
POPOURSO 
PPOOaRuO 
POPOuRfO 
POOOaRAO 
POOOaRTO 
nO0OaR*0 
noOO«RRO 
0o00«000 


32 


*peE»ou  *i  tso  source,  listing  or  the  toah  pbuCeoube 


wF  *o 

I r  |5Tw  ( aSYSDvaIj  EO  x  THFN.SFT  aSySuval  EQ  x£Eo 

I*  SSTh  usySOVAL)  £0  i'  Th£s,  set  aSy«OVAL  EQ  DITTO 

Ir  AST. (astSdvaU  Nf  tbTH()  *.0  l$T9  USvsoyalJ  ME.  OIT^o  ♦ 

T-f  N  HEADLVAL  *TD(.P 

t'-oo 

E  »ir  n 

•'a  I  Tt  £mTCR  T  n£  OFC  Ip»L  PLACES 
hEaO 

IF  UjTwUSyjOval)  EO  »  8?T  axySOval  EQ  *EEp 

if  ASTpf  aSYSC’VAL)  £0  "  T"F  ,  SET  aSySDVaL  EO  DITTO 

[F  As  T  a  (  k«YSOVAL  )  NE  ASThf)  AMD  AFTBUSYbOVAl.)  ME  OTTTO  ♦ 

TmAS  kFaODVaL  ITOUFCU’C 
» B  I  T  e  £  M  T  F  H  The  o*.JT  OF  “Fa3U0£ 
h£aO 

IF  ajtb  (  aStSDval  )  £0  «  ThEs  SET  HYSOVAL  EO  -FE® 

IF  ASTO  ( \STSOVAL  )  £0  IT  ThF  *.  SET  4SYS0VAL  EO  I'TTTO 

IF  ISTH  (  AS  Y30V  AL  )  NC  15T>.f)  A*J(j  ISTS  US’SOVAE  T  *t  OT’TO  TH£*  »' 
SfcT  ATOuNITS  EO  tSTRU.XiSOVAt  ) 

«8ITt  £  M  T  f  M  The  OamEw'J  SA~F 

h£aO 

IF  AsTHfiSYSOVAL)  EO  x  Then  SET  ASYSDVAL  EO  *  EE 0 

IF  asth  (  AXYSOVAL)  £0  o  T«Fn  SFT  aSYSOVAL  £0  OITTu 

IF  asTB  (  aSTSDval  )  sE  AST.f)  AMU  aSTBUSySDVAl)  me  DTTTO  T-£M  ♦ 
SF.t  «.T'SETl*»Y  F  rj  ASTO  (  AbYSOvALT 
.site  EmTEh  The  OF  SCR  I PT  I  Of. 

H  E  A  0 

If  IsT«(»SY50vaL)  EO  «  Th*-  SET  ASYSOVAL  EO  xFED 

IF  ASTR{  ASYSOVAL)  £0  o  ThF».  SET  A-SYSOVAI.  EO  o  TT  Tu 

IF  IS’Bf AXrSOVAL)  me  AST-fJ  AMO  ASTB ( ISYSOVAL )  me  DTTYO  then  ♦ 
SET  iTDPOCTMF  fo  aSTB (ASYSPVAL) 

•  bite  E  fi  T  F  w  The  CAT*  SqiikCE 
hEAO 

if  ASTS f aSySOval  )  £Q  X  Thfk  SFT  aSYSOval  EQ  xFE° 

if  AST«  (  aSYSI'VAL  )  to  0  T»F>.  SFT  ASYSOVAl  EO  OlTTu 

IF  AST« (ASYSUVAU  me  *STBf)  amc  aST°CISv50Val)  ME  DTTTo  then  ♦ 
Set  aTISOOBCE  EO  aSTPIisysDvAU 
.01  T£ 

,0IT£  T*E  NF  »  OnC"**E’.TAT  IPM  is  »S  FOLLO-SI 

.OITe  A  I  f.MoTE  ,  LOG  !  C  1 L  G^UR  AMO  FBEQuFnCY  IS  ...  tTO|.r,F 
. p I T  E  A  T  SMOTE , V  A3  T  ARLE  m»h£  is  ...  A  T  o  M  A  H  F 
IF  A  T  A  EO  CfTPY  Them  oo 

■  RITE  SF.  LOGTC‘L  G * 0 ' 1  p  AMO  FbeooEmCY  IS  ...  ANTULGF 
•  R  I  T  E  Mf»  VAWIif*OF  M  A  h  £  JS  ...  InTOMAH* 

£Mcn 

.bite  L  F  C I p  a  o  PLACtS  AGE  ...  ATHOECLOC 

aPITE  OMIT  OF  «FASU“t  is  ...  AT"OMITS 

SET  ALUM'ITS  EO  lLFNGT“UST.  {irouMTI) ) 

IF  AL 1  'R I T S  GE  IT  Th£m  ♦ 

»R I T £  UNIT  of  measure  ULI'mITS  Chabs)  Is  OxEh  u  Cma4acTERs. 


00005010 

n000«o?0 

OOOOSOSO 

000050«0 

nonoxoxo 

oono«060 

"0" 0X070 
BOOTS J*0 
')  0  0  0  S  0  B  o 
n  0  n  0  5  1  n  o 
(ifln  0*  1  1  0 
non  os  1  PR 
Bonus  ISO 
n  u  n  0  5  1  a  0 
nonos l so 

000051 60 
COOoM  T(J 

nonox  i  «n 

n  0(1  os  1  By 

nonos^Ao 

nonox^l 0 
njn(jxi?0 
C  0  o  n  x  i  s  0 
nonr-t^iio 
nono'^'v 
nponx£*.u 
noncs^Yo 
nonox^«o 
nonox^BQ 
non(iX}"0 
oooos  3  t  o 
nonosi?o 

nnnccjjo 

00OORJO0 

nonnx  jxo 

nonpXSAO 
n  o  n  o  x  i  7  o 
000053*0 
ooonxion 

POm.XYiy 

noons**'  0 

»  0  n  0  5  «  ?  0 
nonoSnAO 
r  o  o '  x  4  o  o 
noryxuxo 

OOOuShhO 

oooo5u7q 

nono5u*o 

OOniiXaBO 

P00055O0 
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APPEND  r«  A  |  TJO  SO'IWCC  LIJTIX6  UE  fKf  TQAM  PPOCEOUBP 


"BpE  n. NEC'S  nahE  is  ...  aT0SE7u«Y 
SET  At  SF  T  "B  v  EO  li  LsCT^flSIBUTOSFTIiar)) 
l»  ALStTU«Y  GE  17  T  “E  n  ♦ 

«SJTt  u-NFW'S  na*E  (ALSETUBY  CH4RACTt®3}  IS  UV£9  I,  CwACACfEk$ 
»°ITe  DESCRIPTION  IS  ...  ATCDOCTnE 
SE  T  IlOOC  to  AlEnGT*!  AsTk I aTDOoCInE )  J 

if  tco  >c  r.t  an  then  r«ite  ot sc^i^tio^  mooc  c«i»sj  is  mo  l^nq 
« « I TE  Data  SOIIWCI  IS  ...  ATPSOuocE 
SET  At  SON  to  lLfk<r.T*USTK(kTD8(.u8Ct)  ) 

IE  tLS .'O  r.t  60  Then  ABirt  SCUkCt  ULS09  C**kS)  IS  T0q  LONG. 

1*  ATAS«  Eli  C»tATE  then  oo 
«B  I  T  F_ 

.#1”.  mis  I's  A  NE«  V  A  h  T  A8l  E  *ITH  DATA  iNiTlALirtO  AT  .99<»<?99, 

I t t  INITIAL  PERtOO  TS  ...  aTDIP 

IF  ALENCTW(ATDIP)  nE  7  T-f(  t 

"RlTfc  initial  PEk!wo  NOT  EiiUAL  To  7  DIGITS, 

•  B I T  t  LAST  P  E  s I  0  D  IS  tT"LB 

IF  ALfN&TNUTOLP)  NF  7  ’-IN  t 

-BITE.  LAST  »E»IOC  not  t  OU  a  L  TO  7  OJOITS, 

ENuO 
«o  I  T f 

»B l T  E  IS  This  CORRECT?  (Y  DP  N) 

"*  AO  A  »  NS 

J»  »A' S  EO  N  Ok  aanS  Eli  NO  Then  goto  C0OC1 

INSERT  TL'NAHE«*ATONAHE-TTr,L''-F«»ATOLGF» 

I*  A T o >iE  C L uC  Nt  a E  t  b  T"EN  msEkT  T OOEC L<U « lTDOEC L OC 
I»  4  T  *  3  A  Nt  C  P  t  *  T  E  TkEs  DO 

INSERT  T  l-  IP«0  I  T0lp«0  i  TQAa  OATA«T0an  (GET  TQNA-t) 

INSERT  TdIP*TOIP*  |T0lp»T0'|  ft 
ENCO 
else  on 

Insert  TOTPM  To  I  p  t  TnLPH  T  ■'L® 

I  n  s  f  R  T  TdarDATauPray  (TrRL£N(TDIP,  T  0  L  p  >  I  )»999999/j  DaaTdOECLGC 

ENOO 

IE  AST- (  ATDIINI  TS  )  nE  *  t  E  P  T-£N  ISAtCT  T  OUN  I  T  S  *  *  4  T  OUN  I  T  3  ■ 

I e  isT-f it.jsetuhyi  Nt  a e t p  then  insert  t d se tub y» « a t ns f tup y « 

If  *ST«  (  aTL'OUC  INF  )  NE  a  EEP  Then  DO 
IE  Atruc  r.E  UO  Then  on 

SET  aTjooCI  to  ASIIHST»(  t  |«0,4T000CINE  T 
SET  ATooore  Eo  AS""8TR ( U l I ilUOC , ITDOUCINE  ) 

INSERT  TD0UCI‘E**ATO(jOL1  • 

INSERT  TOPUClsf »T( OOCI' FptTOOOC2* 

E*  DO 

ELSE  Insect  TODOclNE*  "i TdOQC INF* 

£NCO 

IE  »$Tkf ATDSQUkCE)  n£  aEE0  then  00 
IE  alSdo  GE  aO  ThEn  do 

SE  I  ATOSOOI  eo  ASUbSTOU  | «0 , A T DSOURC 1 1 
SM  A  T  DSUBi  £0  4S"tSIo(AlllL80R,tTDSDiJ«CE) 

INSERT  TDSOUBCEBFUOSOrI  • 


npnoSbl 0 
0UO05SP0 
ONOliASSy 

OOOOSS00 
D0O0SS50 
noooSSfco 
olooSSTO 
Oonoss»o 
O0*OSS9u 
n oroAfeoo 
PPOOSM C 
nnooSbPO 
OoOO S6S0 
ooOoSeai) 
Oi)no*bSO 
nyOOSbkU 
oonoAbTO 
00ny<b*o 
Ai)O0Sf>P!J 
oc'Ons7"0 
0  f,  0  0  A  7  1  0 

ouoos7?y 

nnnoS7sn 
0 11 0  0  S  7  u  0 
OOPOS7So 
0OO0«7kl) 

n  a  0 1)  s  7  7  0 
n  n  n  0  *  7f'j 
Oij00S790 
ooooseno 
n  0  0  0  S  8  t  y 

PonoS8?n 

0000*8*0 

nynoSbao 

OuOllABNy 

non  oc  8*  (i 
n  (1  n  0  *  n  7 1) 
nOOO 

nono«8«0 
ngno*9ny 
Ol>00«91 0 
noooN9?o 
noOOSRSo 
0  0  n  0  a  p  u  0 
nonosc'o 
n  0  0  OS9NO 

0  0  0  OS  9  7^ 

nooos9»o 

nr>ftOS9<Ju 

oooobuno 
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appemoU  it  T SO  louses  LISTl».ft  OP  Tuf  Tda*  seoCtftU»s 


INSERT  TDS0UMCt*TDSPURCE"ATDSnH2» 

ENQn  * 

ELSE  TNStBT  T08nu»CE••^TU1uMRCE,, 

EN09 

CuPYIi  IE  IMS*  FQ  COPY  ThEm  DO 

INSERT  TUH*Ht**tMTUN4“t*  t TOLGEs^uMTOLSE  * 

IE  ime  «E  *  T  ST  EO  Y  them  4 
ImSEBT  T04H(r»EL  TDNahET 

EmOO 

ELSE  IE  *TA*a  me  Create  them  * 

IsSERf  T  r>  a  h  ( DLL  Tona“E) 

INSERT  TOAHIaOD  TOMAME  TdAhoaTa) 

011.21  'HITE  fvTte  00'jTInE  COOt  (C«GOnC  .COPY,  CREATE, DEL)  OH  sTf)P 
» 0 1 T  £  IE  T"E*E  AWE  mu  mope  VARIABLES  TO  BE  CMAmGEO, 

1‘SErT  «PACt (5) 

WE  AO 

IE  *$TW ( AjYSUVAL)  ME  t  S  T  W ( )  THEM  Bt*DOVAt.  ATASM 
IE  A T  A s*  E  U  COPY  PW  A  T  a  S a  tQ  COOC  U»  HAS*  EQ  DEL  ♦ 
irs  IIASA  E U  CREATE  Them  Goto  COPCI 

else  pu 

I  m SE  w  t  Tl)AM  £ mq  j  MOt ChP  |  Ou  I  T 
INSERT  QUIT 
Insert  // 

TOP 

F  T  NO  »/?** 

C  «/?“/•«! 

SUBMI  T 
ENO 
Enop 
£6110 

IP  aTaSK  E o  TOATA  Then  DO 

£ o  I  T  '3*31 .CLIST (Ou“RY) •  CNR 
Top 

INSERT  //IJOBNAHE  JOB  I AACCOUNT . , TSO00#  # #  , , IMCUPY.  )  , 

DEL  !  0 
U‘l>tUH 

Insert  //  »toah  oata  update.*, 

INSERT  //  hsolfvEL«1 »pRTY»AP9TY,,nOTTEV»*Sysiiip,, 

ImsEhT  //  Tl-E»(lRTMUTES.,t3EC0M0|.) , CL A  8 S* 1C l A 1 8 . 

INSERT  /TRUl'TE  PRINT  A  R  UU  T  E  , 

I  n  S  E  R  T  //3TAP0I  E  Y£C  p&-»0  8CaRO* 

INSERT  y/  8  T  e  p\_  l  W  OD  08*  «E»SM6.LIBBASYtL0AD,0ISPi8H8 

I’  SERT  //SYSDilT  DO  8Y80UT«A 

INSERT  //SrSOHO  OP  SySC'Taa 

INSERT  //*y*0*0'IT  DO  IySOUTpa 

INSERT  //Sy80T£Rh  DP  SySOUTaa 

insert  //caroer  oo  ♦ 

TOlIGsi  «r  I TE  E *' T E *  YOU*  Tt>A*  SIGH-Is  *vA»«C  an»  PAjs.oso  r£«**i  P*83) 
HE  aO 

IE  ASTsTHTSOVAC)  me  1|TS()  TM(S  *£AO0VAc  aTOSIGM  lTn8TQN2 


00006010 
00006020 
00006030 
00006030 
000060*0 
00006060 
0000607  0 
000060*0 
00006000 
000061 00 
00006110 
00006i?U 
00O06 1 lo 
00006130 
000061*0 
ooo  06  I  60 
00O061T0 
000061*0 
000061*0 
00006200 
0000621 0 
oooqa2?o 
00006210 
00006230 
00fl062*0 
0  0  0  1,626-0 
00O062T0 
000062*0 
000062*0 
00006 JOO 
O0O06 11  0 
000061*0 
00006310 
O0O06J30 
000061*0 
00006360 
00O061TO 
000061*0 
000063*0 
00O06R0Q 
o  0  o  0  6  3  1  o 
00O063 Jo 
O0OQ6U1O 
00O06330 
000063*0 
C0006360 
00006*70 
60006**0 
00006«*0 
00006590 
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appE.huI«  t|  Tjp  »U"<«fE  LTbTjs®  OF  Tm£  Tua-  PPOCEBuBE 


•  I  F  ^cpNGtM(lTrsI6,i|)  >-t  S  THfcN  n0 

I» -» I T c  8Ti»n*Tn  na-e  TS  W'T  tro»(.  Tn.  s  CM»>«*cTtBS 
G'lin  tusigs 

ts  (1 

IF  «.rnST(>-<i  to  lSTO(j  T«t'  00 

»ojrt  so  S  I G  - 1  PaSS“Ocu  GIvEM,  PLEASE  Thy  AG*ls. 
GOTO  TUSlGs 


no  no* 51  0 

*000*520 
0  0  0  0*.  b50 
*0*0*5 «0 
*0*y*5S0 
*000*560 
ny*n*5?0 


£  S,>0 

l^SEsT  l  T  0  S  I  G‘‘  I 

ns  aSySOATE 


*  A  T  A  tsiEHEu  BY  tS^S'^O  * 


()  k  wFP  TO  PfE^TPS  A  VALOt 
0.  MIA  (0  STOP  BEFPwE  5  VALUES 

is  PO=  “ISSlsG  OATA  ( .999999  J 
AVAJLABI.E  (-99999*) 

SFU  FOB  SFGLIGJPU  (-999997) 

STuP  0»  S0M0  *"1*  YOU  HAvF  OP0ATLO  ALL  VUU9  V*Wl*8LES. 

(U“  9  T  opt 


*909*5*0 
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